Whoops. Fix bug in sending code

This commit is contained in:
Stefan `Sec` Zehl 2012-02-07 09:55:06 +01:00
parent 3f1567823d
commit 3e67b6bc30
1 changed files with 1 additions and 1 deletions

View File

@ -249,7 +249,7 @@ if($cmd =~ /^r/){
die "Unknown send subtype: $sub\n";
};
print "Write: <", sprint($pkt),">, ";
print "Write: <", r0ket::sprint($pkt),">, ";
print "crc: ",unpack("n",substr($pkt,length($pkt)-2,2))," ";
print "len: ",length($pkt),"\n";
while($cmd-->0){