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);