diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-12-23 06:14:22 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-23 06:14:22 +0000 |
| commit | 922c91763e1a7e3b540e71554b5f8b8bd0cedcf2 (patch) | |
| tree | defab7a28e03253cb5957a8ffccce5c0001f468e /lib/perl5db.pl | |
| parent | b9609c016748169d47b94fc4dbf8db845fb4579c (diff) | |
| download | perl-922c91763e1a7e3b540e71554b5f8b8bd0cedcf2.tar.gz | |
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..)
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 45e6a19ebe..7a53b110b5 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 ? ':' : ' ') ; |