[Perl/perl5] 530b71: pp_unstack - set PL_curcop for better condition li...

  Branch: refs/heads/blead
  Home:   https://github.com/Perl/perl5
  Commit: 530b71671f0f203f87fc7119874ea7380476eb06
      https://github.com/Perl/perl5/commit/530b71671f0f203f87fc7119874ea7380476eb06
  Author: Richard Leach <[email protected]>
  Date:   2026-07-20 (Mon, 20 Jul 2026)

  Changed paths:
    M pp_hot.c
    M t/lib/warnings/9uninit
    M t/run/switches.t

  Log Message:
  -----------
  pp_unstack - set PL_curcop for better condition line number accuracy

Diagnostic messages triggered by the contents of a loop condition have
tended to show inaccurate line numbers, as the COP in effect usually
pertains to a statement inside the loop body. Sometimes deep inside
the loop body.

This long-standing example would warn about `Use of uninitialized value
$c in numeric eq (==) at - line 10.`, when the correct location is line 5:
```
use warnings;

my $c;
my $d = 1;
while ($c == 0 && $d) {
  # a
  # few
  # blank
  # lines
  undef $d;
}
```

This commit tweaks `pp_unstack` to set `PL_curcop` to the last valid
COP prior to loop entry, which is usually going to have a line number
closer to where the loop condition exists in the source code.



To unsubscribe from these emails, change your notification settings at https://github.com/Perl/perl5/settings/notifications