From: minima <minima>
Date: Mon, 3 Sep 2001 15:08:58 +0000 (+0000)
Subject: fix backcounting
X-Git-Tag: R_1_48~59
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7b8633ac755627ff5ff4b991c52205016ee4e2e;p=spider.git

fix backcounting
---

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 = ();