[perl #77164] [BUG] Cannot always match signature when default value is a sub

[Will Coleda via RT]

On Wed Aug 11 08:58:45 2010, patrickas wrote:
> <patrickas> rakudo: sub foo ( $f = rand ) { say $f; }; say
> Capture.new() ~~ &foo.signature;  #does not match
> <p6eval> rakudo c1e19a: OUTPUT«0␤»
> 
> <patrickas> rakudo: sub foo ( $f = 0.461541885367723 ) { say $f;  };
> say Capture.new() ~~ &foo.signature;  #matches
> <p6eval> rakudo c1e19a: OUTPUT«1␤»
> 
> <patrickas> rakudo: sub foo ( $f = substr('string',0) ) { say $f; };
> say Capture.new() ~~ &foo.signature; #matches
> <p6eval> rakudo c1e19a: OUTPUT«1␤»

These now all fail to smartmatch, which I don't think is the requested 
behavior; is it the spec'd behavior?

-- 
Will "Coke" Coleda