Re: Re: Re: Re: Re^2: NO PERL 6

[jryan]

So, will this code die 50% of the time?

{
    $type = ('hex','oct')[rand 2];
    eval qq[
        rule Perl::Literals::$type::number {
            {die 'this base no longer exists'}
        }
    ];
    print 0o017;
}