Bug#736187: perl: local *_; goto ⊂ segfaults

[Niko Tyni]

Package: perl
Version: 5.18.2-2
Severity: important
Tags: fixed-upstream
Forwarded: https://rt.perl.org/Public/Bug/Display.html?id=119949

As reported by Brian Fraser in the upstream ticket:

 % perl -le 'sub foo { print "in foo: <@_>" } sub bar { local *_ = "hello foo"; goto &foo } bar("hello bar")'
 in foo: <>
 zsh: segmentation fault (core dumped)  perl -le 

Should be fixed in blead by
 http://perl5.git.perl.org/perl.git/commitdiff/bfa371b

-- 
Niko Tyni   ntyni at debian.org