X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fgrepdbg;h=5ab380f6de6d6638f1933ec2155a04f32cc5a5a0;hb=c7b8633ac755627ff5ff4b991c52205016ee4e2e;hp=55d09788b8c28bf0f3c4f220951567fb9262dd9c;hpb=dea6cbc282b2c101672139c9369af8c9bba7122e;p=spider.git

diff --git a/perl/grepdbg b/perl/grepdbg
index 55d09788..5ab380f6 100755
--- a/perl/grepdbg
+++ b/perl/grepdbg
@@ -64,7 +64,7 @@ for my $entry (@list) {
 			if ($line =~ m{$string}io) {
 				for (@prev) {
 					s/([\x00-\x1f\x7f-\xff])/sprintf("\\x%02X", ord($1))/eg; 
-					my ($t, $l) =  split /\^/, $line, 2;
+					my ($t, $l) =  split /\^/, $_, 2;
 					print atime($t), ' ', $l, "\n"; 
 				}
 				@prev = ();