From eb758636b385e1bdba42406623987fc8ac3f6138 Mon Sep 17 00:00:00 2001
From: Mariano Alvira <mar@devl.org>
Date: Tue, 16 Jun 2009 19:23:20 -0400
Subject: [PATCH] there was an extra byte, proably because of a newline or
 something. offset by one for now. Works much better now. Needs more testing.

Signed-off-by: Mariano Alvira <mar@devl.org>
---
 rftestrx2pcap.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rftestrx2pcap.pl b/rftestrx2pcap.pl
index 81bad3727..73917be9a 100755
--- a/rftestrx2pcap.pl
+++ b/rftestrx2pcap.pl
@@ -70,7 +70,7 @@ while(1) {
 		print pack('LLLL',($sec,$usec,scalar(@data),scalar(@data)+2));
 		@frame = @data[0,1];
 		print pack ('CC',($frame[1],$frame[0]));
-		foreach my $data (@data[2..scalar(@data)]) {
+		foreach my $data (@data[2..scalar(@data)-1]) {
 		    print pack ('C',hex($data));
 		}		
 	    }