[perl #77138] [BUG] subset attempt fails with Null PMC access

[Will Coleda via RT]

On Tue Aug 10 08:01:59 2010, Solomon wrote:
> colomon: star: subset ComplexNumeric of Numeric where { ($_ ~~ Real)
> || ($_ ~~ Complex) }; my ComplexNumeric $x = 1; say $x.perl; $x = 1i;
> say $x.perl
> 
> star 2010.07: OUTPUT«Null PMC access in invoke()␤  in 'ACCEPTS' at
> line 1␤  in '&infix:<=>' at line 1␤  in main program body at line
> 22:/tmp/datuKCLFdC␤»
> 
> colomon: star: subset ComplexNumeric of Numeric where { ($_ ~~ Real)
> }; my ComplexNumeric $x = 1; say $x.perl;
> star 2010.07: OUTPUT«Null PMC access in invoke()␤  in 'ACCEPTS' at
> line 1␤  in '&infix:<=>' at line 1␤  in main program body at line
> 22:/tmp/fzM3BfOkY6␤
> 

14:43 < [Coke]> rakudo: subset ComplexNumeric of Numeric where { ($_ ~~ 
Real)
                || ($_ ~~ Complex) }; my ComplexNumeric $x = 1; say 
$x.perl; $x
                = 1i; say $x.perl
14:43 <+p6eval> rakudo 356fe7: OUTPUT«1␤Complex.new(0, 1)␤»
14:43 < [Coke]> rakudo: subset ComplexNumeric of Numeric where { ($_ ~~ 
Real)
                }; my ComplexNumeric $x = 1; say $x.perl;
14:43 <+p6eval> rakudo 356fe7: OUTPUT«1␤»

These no longer generate NPEs.

-- 
Will "Coke" Coleda