# HG changeset patch
# User heiko
# Date 1011728160 -3600
# Node ID 6b2a0de29990f69bd21f6f76cbabc02b31686f3a
# Parent  b9baa645576a7937aea0323ccccf510600c27cf3
packing with "n"

diff -r b9baa645576a -r 6b2a0de29990 me8100_test_int/test.pl
--- a/me8100_test_int/test.pl	Tue Jan 22 20:30:44 2002 +0100
+++ b/me8100_test_int/test.pl	Tue Jan 22 20:36:00 2002 +0100
@@ -11,7 +11,7 @@
 	sysread(DEV, $val, 2);
 	$val = unpack("s", $val);
 	print "Hi, got a signal, read $val\n";
-	print "<", unpack("b16", pack("N", $val)), ">\n";
+	print "<", unpack("B16", pack("n", $val)), ">\n";
 };
 
 open(DEV, $DEV)