Change 7513 by jhi@alpha on 2000/11/01 14:48:30

	Subject: [ID 20001101.001] Net::Ping icmp odd $bytes
	From: root <root@chronos.fi.muni.cz>
	Date: Wed, 1 Nov 2000 12:31:32 +0100
	Message-Id: <200011011131.MAA03310@chronos.fi.muni.cz>

Affected files ...

... //depot/perl/lib/Net/Ping.pm#11 edit

Differences ...

==== //depot/perl/lib/Net/Ping.pm#11 (text) ====
Index: perl/lib/Net/Ping.pm
--- perl/lib/Net/Ping.pm.~1~	Thu Nov 22 14:38:34 2001
+++ perl/lib/Net/Ping.pm	Thu Nov 22 14:38:34 2001
@@ -269,13 +269,13 @@
         );
 
     $len_msg = length($msg);
-    $num_short = $len_msg / 2;
+    $num_short = int($len_msg / 2);
     $chk = 0;
     foreach $short (unpack("S$num_short", $msg))
     {
         $chk += $short;
     }                                           # Add the odd byte in
-    $chk += unpack("C", substr($msg, $len_msg - 1, 1)) if $len_msg % 2;
+    $chk += (unpack("C", substr($msg, $len_msg - 1, 1)) << 8) if $len_msg % 2;
     $chk = ($chk >> 16) + ($chk & 0xffff);      # Fold high into low
     return(~(($chk >> 16) + $chk) & 0xffff);    # Again and complement
 }
End of Patch.
