in reply to Debugger line numbering anomaly

Looks good to me 
DB<3> l 1-6
1       #!/bin/perl -w
2:      use strict;
3==>    $_ = shift // '';  # line 3
4:      s{a([bc])}         # 4
5        {d$1}g;           # 5
6:      print;             # 6
  DB<4>

[download]

You can't break at 5 though, because the multi-line statement starts at 4.

Semicolons matter!

Edit

Please try recreating the file and test again.

$ cat db_tst.pl
#!/bin/perl -w
use strict;
$_ = shift // '';  # line 3
s{a([bc])}         # 4
 {d$1}g;           # 5
print;             # 6

[download]

Do you probably have a weird line ending (from windows?) after the shebang?

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

Replies are listed 'Best First'.
Re^2: Debugger line numbering anomaly
by lzipin (Acolyte) on Dec 24, 2019 at 19:22 UTC

    In the test code, lines 4 and 5 comprise a substitution operator. With delimiter pairs for the match and replace clauses, the operator allows whitespace between the clauses (with the single ';' terminating the operator on line 5). And, in fact, the code runs in the debugger (and without the debugger) just fine. It's just the debugger that, it seems, isn't parsing the line, and mis-numbering subsequent lines.

    I tried again on a Debian Linux, with Perl 5.28.1 and perl5db.pl 1.5.3. It doesn't show the problem. Maybe that's a clue: I can compare perl5db.pl code from the two machines. I'll report back.

[reply]
      again:
      • is the problem reproducible if you copy the code from this thread?
      • did you include warn to see if the compilation recorded the right line-numbers?
      and
      • can you narrow down which code-line is starting the problem?
      update

      There are internal arrays which hold all parsed lines of the debugger, you could check there if the debugger got it right.

      perldebguts :

      Each array @{"_<$filename"} holds the lines of $filename for a file compiled by Perl.

      Cheers Rolf
      (addicted to the Perl Programming Language :)
      Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

[reply]

        First, I compared (in the programmer's text editor Epsilon) perl5db.pl v 1.5.1 and 1.5.3. Only a few differences; none seems significant to this issue.

        So I copied the 1.5.3 version to /usr/share/perl/5.26/perl5db.pl on the Xubuntu machine. Same (wrong) debug behavior as with the original 1.5.1 version. Further, the debug command "x @{$main::{'_<t6.pl'}}" is also missing the (original) line 5. This suggests (so far) that it's a Perl 5.26 bug, and not a perl5db.pl bug.

        Still exploring ...

        -- Lee

[reply]

In Section Seekers of Perl Wisdom