Restore the byte-by-byte checksum method, since the Unicode-aware

version breaks with very new 3M self-check units, according to dbs.

diff --git a/Sip/Checksum.pm b/Sip/Checksum.pm
index 49ea78b..5840d38 100644 (file)
--- a/Sip/Checksum.pm
+++ b/Sip/Checksum.pm
@@ -29,7 +29,7 @@ our @EXPORT_OK = qw(checksum verify_cksum);
 sub checksum {\r
     my $pkt = shift;\r
 \r
-    return (-unpack('%16U*', $pkt) & 0xFFFF);\r
+    return (-unpack('%16C*', $pkt) & 0xFFFF);\r
 }\r
 \r
 sub verify_cksum {\r