CVSROOT: /cvs Module name: src Changes by: [email protected] 2026/01/10 16:20:43
Modified files:
gnu/usr.bin/perl: op.c
gnu/usr.bin/perl/t/op: for-many.t
Log message:
Apply upstream patch to fix segfault with multi-arg for loops
This is documented upstream https://github.com/perl/perl5/issues/23405
A simple trigger is
perl -c -wE 'for my ($x, $y) (Bar->foo) {}'
Suggested by James Cook <falsifian () falsifian ! org>
Tested and OK gkoehler@
