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 (file)
--- 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 ? ':' : ' ') ;