X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=rf433rcv%2Fpc%2Fdecode.pl;fp=rf433rcv%2Fpc%2Fdecode.pl;h=8a0a4d69a235aa7213bed931f0b4dc922691cd1e;hp=685a283067c2810916764dea8c3ba9dd5d04c21d;hb=f505a1c37ea1c76897991f9882de765e34f0cc98;hpb=02293cb00639b97ca422619ee15f5981a5b3ffd0

diff --git a/rf433rcv/pc/decode.pl b/rf433rcv/pc/decode.pl
index 685a283..8a0a4d6 100755
--- a/rf433rcv/pc/decode.pl
+++ b/rf433rcv/pc/decode.pl
@@ -61,7 +61,7 @@ if (my $delemiter = $ARGV[0])
     $binarydata[int($bitcount/8)]|=$bits;
     $bitcount++;
   }
-  $binarydata[int($bitcount/8)]<<= 7 - ($bitcount % 8);
+  $binarydata[int($bitcount/8)]<<= 8 - ($bitcount % 8) if $bitcount % 8;
   my @chars = map { chr($_) } @binarydata; 
   print STDERR join '',@chars;
 #  print STDERR "\ns\x04"; # send 4 times