diff options
Diffstat (limited to 'perl/perl-Net-Packet/pod.patch')
| -rw-r--r-- | perl/perl-Net-Packet/pod.patch | 162 |
1 files changed, 162 insertions, 0 deletions
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); + |