http://www.perlmonks.org?node_id=11110619


in reply to Debugger line numbering anomaly

My grateful thanks to you all, particularly Rolf for your suggestions and prodding, and haukex for confirming the bug in Perl v5.26.*.

haukex, what did you search to find the bug references you cited?

BillKSmith, perltidy is new to me. But I tried it on my sample code; it did nothing with it (short of changing the whitespace). It didn't flag any issue with it.

Meanwhile, I've punted. The actual code was this:

s{\s(")?(\w+):(\w)((([^"\n]*)")|([^\s\n]*)([\s\n]))} { " <a>$2:$3" . ( ($1 && $5) ? "$6</a>" : "$7</a>$8" ) }eg;

That finds phrases like 'source:tag' and 'source:some tag' and wraps each in HTML anchor tags. I rewrote it like this:

my $p = qr{\s(")?(\w+):(\w)((([^"\n]*)")|([^\s\n]*)([\s\n]))}; s|$p| " <a>$2:$3" . ( ($1 && $5) ? "$6</a>" : "$7</a>$8" ) |eg;

So the full search-and-replace operation fits fine on one line.

Thanks again. Enjoy what's left of your holiday, wherever you are.

--Lee

Replies are listed 'Best First'.
Re^2: Debugger line numbering anomaly
by haukex (Bishop) on Dec 26, 2019 at 07:55 UTC
    what did you search to find the bug references you cited?

    In this case, I didn't directly search for the bug, I ran the bisect, and the second of the two commits referenced the bug.