[perl #115184] Segmentation Fault on 'try { CATCH { ~$! }; die }'

[Will Coleda via RT]

On Wed Nov 13 19:15:34 2013, coke wrote:
> On Mon Oct 08 13:45:22 2012, pawel.pab...@implix.com wrote:
> > <bbkr_> rakudo: try { CATCH { ~$! }; die } # shortest form that
> > segfaults on my machine
> > <p6eval> rakudo 870d18: OUTPUT«(signal SEGV)»
> > <bbkr_> rakudo: say $*PERL
> > <p6eval> rakudo 870d18: OUTPUT«("name" => "rakudo", "compiler" =>
> > {"name" => "rakudo", "ver" => "2012.09.1-19-g870d189", "release-
> > number" => "", "build-date" => "2012-10-07T20:14:14Z", "codename" =>
> > ""}).hash␤»
> > 
> > 
> > Jnthns tests:
> > 
> > <jnthn> rakudo: try { CATCH { say $! }; die }
> > <p6eval> rakudo 870d18: OUTPUT«Mu()␤␤  in block  at
> > /tmp/PvCL0g0K2j:1␤␤»
> > <jnthn> rakudo: try { CATCH { say pir::typeof__SP($!) }; die }
> > <p6eval> rakudo 870d18: OUTPUT«Null PMC access in name()␤  in block
> > at /tmp/z1hRUMISze:1␤  in block  at /tmp/z1hRUMISze:1␤␤»
> > <jnthn> yowser
> > <bbkr_> ?
> > <jnthn> Yeah, that's bad.
> 
> no longer segfaults or NPCs; Closable with tests:
> 
> > try { CATCH { ~$! }; die }
> 
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1146
>   in any eval at gen/parrot/stage2/NQPHLL.nqp:1133
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1091
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1077
>   in any interactive at gen/parrot/stage2/NQPHLL.nqp:1066
>   in any command_eval at gen/parrot/stage2/NQPHLL.nqp:1241
>   in any command_eval at src/Perl6/Compiler.nqp:17
>   in any command_line at gen/parrot/stage2/NQPHLL.nqp:1218
>   in any MAIN at gen/parrot/main.nqp:45
>   in any  at gen/parrot/main.nqp:35
> 
> > try { CATCH { say $! }; die }
> Nil
> 
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1146
>   in any eval at gen/parrot/stage2/NQPHLL.nqp:1133
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1091
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1077
>   in any interactive at gen/parrot/stage2/NQPHLL.nqp:1066
>   in any command_eval at gen/parrot/stage2/NQPHLL.nqp:1241
>   in any command_eval at src/Perl6/Compiler.nqp:17
>   in any command_line at gen/parrot/stage2/NQPHLL.nqp:1218
>   in any MAIN at gen/parrot/main.nqp:45
>   in any  at gen/parrot/main.nqp:35
> 
> >  try { CATCH { say pir::typeof__SP($!) }; die }
> Nil
> 
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1146
>   in any eval at gen/parrot/stage2/NQPHLL.nqp:1133
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1091
>   in any  at gen/parrot/stage2/NQPHLL.nqp:1077
>   in any interactive at gen/parrot/stage2/NQPHLL.nqp:1066
>   in any command_eval at gen/parrot/stage2/NQPHLL.nqp:1241
>   in any command_eval at src/Perl6/Compiler.nqp:17
>   in any command_line at gen/parrot/stage2/NQPHLL.nqp:1218
>   in any MAIN at gen/parrot/main.nqp:45
>   in any  at gen/parrot/main.nqp:35

Test added to t/spec/S04-exception-handlers/catch.t
-- 
Will "Coke" Coleda