Change 18301: [perl #16150] Bad location of '==>' under the debugger,

[Jarkko Hietaniemi]

Change 18301 by jhi@lyta on 2002/12/13 02:12:54

        [perl #16150] Bad location of '==>' under the debugger,
        apply the patch.

Affected files ...

... //depot/maint-5.8/perl/lib/perl5db.pl#2 edit

Differences ...

==== //depot/maint-5.8/perl/lib/perl5db.pl#2 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#1~17645~        Fri Jul 19 12:29:57 2002
+++ perl/lib/perl5db.pl Thu Dec 12 18:12:54 2002
@@ -1743,6 +1743,7 @@
 }
 
 sub cmd_l {
+       my $current_line = $line;
        my $line = shift;
        $line =~ s/^-\s*$/-/;
        if ($line =~ /^(\$.*)/s) {
@@ -1806,7 +1807,7 @@
                                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 ? ':' : ' ') ;
End of Patch.