Whoops. Fix bug in sending code
This commit is contained in:
parent
3f1567823d
commit
3e67b6bc30
|
@ -249,7 +249,7 @@ if($cmd =~ /^r/){
|
||||||
die "Unknown send subtype: $sub\n";
|
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 "crc: ",unpack("n",substr($pkt,length($pkt)-2,2))," ";
|
||||||
print "len: ",length($pkt),"\n";
|
print "len: ",length($pkt),"\n";
|
||||||
while($cmd-->0){
|
while($cmd-->0){
|
||||||
|
|
Loading…
Reference in New Issue