# New Ticket Created by Salve J Nilsen
# Please include the string: [perl #115322]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=115322 >
Hi!
While goofing around, I bumped into a segfault. Here's how to
reproduce it:
$ ./perl6 -v
This is perl6 version 2012.09.1-42-gc2005e6 built on parrot 4.4.0
revision RELEASE_4_4_0
$ ./perl6
> return
Attempt to return outside of any Routine
> last
Segmentation fault (core dumped)
$
...and that's it. I can supply my core dump file if requested.
- Salve
--
#!/usr/bin/perl
sub AUTOLOAD{$AUTOLOAD=~/.*::(\d+)/;seek(DATA,$1,0);print# Salve Joshua Nilsen
getc DATA}$"="'};&{'";@_=unpack("C*",unpack("u*",':4@,$'.# <[email protected]>
'2!--"5-(50P%$PL,!0X354UC-PP%/0\`'."\n"));eval "&{'@_'}"; __END__ is near! :)
