From 1b1ed210657f0c033ce63c30a99cbd5fa26a6830 Mon Sep 17 00:00:00 2001 From: Willy Sudiarto Raharjo Date: Thu, 7 Nov 2013 22:38:16 +0700 Subject: [PATCH] perl/perl-Net-Packet: Rebuilt to fix strange character Signed-off-by: Willy Sudiarto Raharjo Signed-off-by: Robby Workman --- .../perl-Net-Packet.SlackBuild | 19 +- perl/perl-Net-Packet/pod.patch | 162 ++++++++++++++++++ 2 files changed, 171 insertions(+), 10 deletions(-) create mode 100644 perl/perl-Net-Packet/pod.patch diff --git a/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild b/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild index d5f5026926..a7f5ffa3b5 100644 --- a/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild +++ b/perl/perl-Net-Packet/perl-Net-Packet.SlackBuild @@ -24,18 +24,16 @@ PRGNAM=perl-Net-Packet VERSION=${VERSION:-3.27} -BUILD=${BUILD:-1} +BUILD=${BUILD:-2} TAG=${TAG:-_SBo} SRC_PRGNAM=Net-Packet DOCS="LICENSE LICENSE.Artistic README" -# Automatically determine the architecture we're building on: if [ -z "$ARCH" ]; then case "$( uname -m )" in i?86) ARCH=i486 ;; arm*) ARCH=arm ;; - # Unless $ARCH is already set, use uname -m for all other archs: *) ARCH=$( uname -m ) ;; esac fi @@ -68,20 +66,21 @@ rm -rf $SRC_PRGNAM-$VERSION tar xvf $CWD/$SRC_PRGNAM-$VERSION.tar.gz cd $SRC_PRGNAM-$VERSION chown -R root:root . -find . \ +find -L . \ \( -perm 777 -o -perm 775 -o -perm 711 -o -perm 555 -o -perm 511 \) \ -exec chmod 755 {} \; -o \ - \( -perm 666 -o -perm 664 -o -perm 600 -o -perm 444 -o -perm 440 -o -perm 400 \) \ - -exec chmod 644 {} \; + \( -perm 666 -o -perm 664 -o -perm 640 -o -perm 600 -o -perm 444 \ + -o -perm 440 -o -perm 400 \) -exec chmod 644 {} \; -perl Makefile.PL INSTALLDIRS=perl +patch -p1 < $CWD/pod.patch +PERL_MM_USE_DEFAULT=1 perl Makefile.PL \ + PREFIX=/usr \ + INSTALLDIRS=vendor \ + INSTALLVENDORMAN3DIR=/usr/man/man3 make make test make install DESTDIR=$PKG -# Move man pages -mv $PKG/usr/share/man $PKG/usr/ - # Compress man pages ( cd $PKG/usr/man find . -type f -exec gzip -9 {} \; diff --git a/perl/perl-Net-Packet/pod.patch b/perl/perl-Net-Packet/pod.patch new file mode 100644 index 0000000000..a897c22f8f --- /dev/null +++ b/perl/perl-Net-Packet/pod.patch @@ -0,0 +1,162 @@ +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/ARP.pm Net-Packet-3.27/lib/Net/Packet/ARP.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/ARP.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/ARP.pm 2013-11-07 22:29:47.938688696 +0700 +@@ -152,7 +152,7 @@ + use Net::Packet::Consts qw(:arp); + require Net::Packet::ARP; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::ARP->new( + dstIp => "192.168.0.1", + ); +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Consts.pm Net-Packet-3.27/lib/Net/Packet/Consts.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/Consts.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/Consts.pm 2013-11-07 22:31:46.338040470 +0700 +@@ -482,10 +482,10 @@ + # Load IPv4 layer constants + use Net::Packet::Consts qw(:ipv4); + +- # Load Ethernet layer constants ++ # Load Ethernet layer constants + use Net::Packet::Consts qw(:eth); + +- # Load Ethernet, IPv6 and TCP layers constants ++ # Load Ethernet, IPv6 and TCP layers constants + use Net::Packet::Consts qw(:eth :ipv6 :tcp); + + =head1 DESCRIPTION +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/ETH.pm Net-Packet-3.27/lib/Net/Packet/ETH.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/ETH.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/ETH.pm 2013-11-07 22:27:54.205272530 +0700 +@@ -137,7 +137,7 @@ + use Net::Packet::Consts qw(:eth); + require Net::Packet::ETH; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::ETH->new( + type => NP_ETH_TYPE_IPv6, + dst => "00:11:22:33:44:55", +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Frame.pm Net-Packet-3.27/lib/Net/Packet/Frame.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/Frame.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/Frame.pm 2013-11-07 22:31:54.161931581 +0700 +@@ -615,8 +615,8 @@ + # will be created automatically, by default. See Net::Packet::Env + # regarding changing this behaviour. Same for Net::Packet::Dump. + my $frame = Net::Packet::Frame->new( +- l3 => $ipv4, # Net::Packet::IPv4 object +- l4 => $tcp, # Net::Packet::TCP object ++ l3 => $ipv4, # Net::Packet::IPv4 object ++ l4 => $tcp, # Net::Packet::TCP object + # (here, a SYN request, for example) + ); + +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/IPv4.pm Net-Packet-3.27/lib/Net/Packet/IPv4.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/IPv4.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/IPv4.pm 2013-11-07 22:27:07.653921003 +0700 +@@ -284,7 +284,7 @@ + use Net::Packet::Consts qw(:ipv4); + require Net::Packet::IPv4; + +- # Build a layer ++ # Build a layer + my $ip = Net::Packet::IPv4->new( + flags => NP_IPv4_DONT_FRAGMENT, + dst => "192.168.0.1", +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/IPv6.pm Net-Packet-3.27/lib/Net/Packet/IPv6.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/IPv6.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/IPv6.pm 2013-11-07 22:29:37.659831761 +0700 +@@ -149,7 +149,7 @@ + use Net::Packet::Consts qw(:ipv6); + require Net::Packet::IPv6; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::IPv6->new( + dst => $hostname6, + ); +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/Layer7.pm Net-Packet-3.27/lib/Net/Packet/Layer7.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/Layer7.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/Layer7.pm 2013-11-07 22:26:52.198136331 +0700 +@@ -73,7 +73,7 @@ + + use Net::Packet::Layer7; + +- # Build layer to inject to network ++ # Build layer to inject to network + my $l7a = Net::Packet::Layer7->new(data => "GET / HTTP/1.0\r\n\r\n"); + + # Decode from network to create the object +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/NULL.pm Net-Packet-3.27/lib/Net/Packet/NULL.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/NULL.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/NULL.pm 2013-11-07 22:27:21.244731668 +0700 +@@ -88,7 +88,7 @@ + use Net::Packet::Consts qw(:null); + require Net::Packet::NULL; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::NULL->new; + $layer->pack; + +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/RAW.pm Net-Packet-3.27/lib/Net/Packet/RAW.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/RAW.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/RAW.pm 2013-11-07 22:28:29.971774372 +0700 +@@ -59,7 +59,7 @@ + # No constants for RAW + require Net::Packet::RAW; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::RAW->new; + $layer->pack; + +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/SLL.pm Net-Packet-3.27/lib/Net/Packet/SLL.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/SLL.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/SLL.pm 2013-11-07 22:28:18.515933924 +0700 +@@ -116,7 +116,7 @@ + use Net::Packet::Consts qw(:sll); + require Net::Packet::SLL; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::SLL->new; + $layer->pack; + +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet/TCP.pm Net-Packet-3.27/lib/Net/Packet/TCP.pm +--- Net-Packet-3.27.orig/lib/Net/Packet/TCP.pm 2009-11-10 00:58:28.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet/TCP.pm 2013-11-07 22:32:06.696757148 +0700 +@@ -306,10 +306,10 @@ + use Net::Packet::Consts qw(:tcp); + require Net::Packet::TCP; + +- # Build a layer ++ # Build a layer + my $layer = Net::Packet::TCP->new( + dst => 22, +- options => "\x02\x04\x05\xb4", # MSS=1460 ++ options => "\x02\x04\x05\xb4", # MSS=1460 + ); + $layer->pack; + +diff -Nur Net-Packet-3.27.orig/lib/Net/Packet.pm Net-Packet-3.27/lib/Net/Packet.pm +--- Net-Packet-3.27.orig/lib/Net/Packet.pm 2009-11-10 01:21:00.000000000 +0700 ++++ Net-Packet-3.27/lib/Net/Packet.pm 2013-11-07 22:34:00.512173471 +0700 +@@ -69,13 +69,13 @@ + # WARNING: this is not the prefered way to use Net::Packet + use Net::Packet; + +- # Build IPv4 header ++ # Build IPv4 header + my $ip = Net::Packet::IPv4->new(dst => '192.168.0.1'); + +- # Build TCP header ++ # Build TCP header + my $tcp = Net::Packet::TCP->new(dst => 22); + +- # Assamble frame, it will also open a Net::Packet::DescL3 descriptor ++ # Assamble frame, it will also open a Net::Packet::DescL3 descriptor + # and a Net::Packet::Dump object + my $frame = Net::Packet::Frame->new(l3 => $ip, l4 => $tcp); +