From c7b8633ac755627ff5ff4b991c52205016ee4e2e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 3 Sep 2001 15:08:58 +0000
Subject: [PATCH] fix backcounting

---
 perl/grepdbg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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