From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 23 Dec 2002 06:14:22 +0000 (+0000)
Subject: integrate maint-5.8 #18301
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=922c91763e1a7e3b540e71554b5f8b8bd0cedcf2;p=p5sagit%2Fp5-mst-13.2.git

integrate maint-5.8 #18301

p4raw-id: //depot/perl@18346
p4raw-integrated: from //depot/maint-5.8/perl@18345 'merge in'
	lib/perl5db.pl (@17645..)
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 45e6a19..7a53b11 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1743,6 +1743,7 @@ sub cmd_h {
 }
 
 sub cmd_l {
+	my $current_line = $line;
 	my $line = shift;
 	$line =~ s/^-\s*$/-/;
 	if ($line =~ /^(\$.*)/s) {
@@ -1806,7 +1807,7 @@ sub cmd_l {
 				my ($stop,$action);
 				($stop,$action) = split(/\0/, $dbline{$i}) if
 						$dbline{$i};
-							$arrow = ($i==$line 
+						$arrow = ($i==$current_line
 						and $filename eq $filename_ini) 
 					?  '==>' 
 						: ($dbline[$i]+0 ? ':' : ' ') ;