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

[Will Coleda via RT]

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
-- 
Will "Coke" Coleda