net/p5-NetPacket/files/patch-aa


1
2
3
4
5
6
7
8
9
10
11
12

--- NetPacket/IP.pm	Fri Jan 11 20:10:25 2002
+++ NetPacket/IP.pm.new	Fri Jan 11 20:10:35 2002
@@ -224,7 +224,7 @@
 
     # make the entire packet
     $packet = pack('CCnnnCCna4a4a*a*', $tmp, $self->{tos},$self->{len}, 
-         $self->{id}, $self->{foffset}, $self->{ttl}, $self->{proto}, 
+         $self->{id}, $offset, $self->{ttl}, $self->{proto}, 
          $self->{cksum}, $src_ip, $dest_ip, $self->{options},
          $self->{data});