mirror of
https://github.com/SlackBuildsOrg/slackbuilds
synced 2024-09-30 05:39:56 +02:00
perl/perl-Net-Packet: Rebuilt to fix strange character
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackware-id.org> Signed-off-by: Robby Workman <rworkman@slackbuilds.org>
This commit is contained in:
parent
2178ff0168
commit
1b1ed21065
2 changed files with 171 additions and 10 deletions
|
@ -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 {} \;
|
||||
|
|
162
perl/perl-Net-Packet/pod.patch
Normal file
162
perl/perl-Net-Packet/pod.patch
Normal file
|
@ -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);
|
||||
|
Loading…
Reference in a new issue