X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=rf433rcv%2Fpc%2Fdecode2.pl;fp=rf433rcv%2Fpc%2Fdecode2.pl;h=08318e94cf05b3664d5478bb9730c23da95c6b20;hb=ac71234587241032871cfb0745471f011fcbb943;hp=4d81139aa2f542f3d24249d7434be33a9fd5af54;hpb=f505a1c37ea1c76897991f9882de765e34f0cc98;p=svn42.git

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