X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=rf433rcv%2Fpc%2Fdecode2.pl;h=70ce6c2dff61d294645166a38e330e9a72ac9198;hp=08318e94cf05b3664d5478bb9730c23da95c6b20;hb=5b65d67a87c56a61669419bd597809815e696aef;hpb=46a6fafebf5c7b9c2be5fd0df01ea53967b956ca

diff --git a/rf433rcv/pc/decode2.pl b/rf433rcv/pc/decode2.pl
index 08318e9..70ce6c2 100755
--- a/rf433rcv/pc/decode2.pl
+++ b/rf433rcv/pc/decode2.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 print STDERR $ARGV[2]-$ARGV[1], "samples\n";
-my @data =  split /,/,<>;
+my @data =  split //,<>;
 my @samples = $ARGV[0]..$ARGV[1];
 print join '',@data[@samples];
 print STDERR "\n";