Strange string (non)numification

[pmichaud]

From an observation by patrickas on #perl6:

pmichaud@orange:~/parrot/trunk$ cat ../x.pir
.sub main
    $S0 = "6foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0

    $S0 = "16foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0
.end

pmichaud@orange:~/parrot/trunk$ ./parrot ../x.pir 
6foo = 0
16foo = 16
pmichaud@orange:~/parrot/trunk$ 

This has apparently been around for a long time -- since at least Parrot 1.4.0. It was working fine in Parrot 1.0.0, though:

pmichaud@orange:~/parrot/RELEASE_1_0_0$ cat ../x.pir
.sub main
    $S0 = "6foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0

    $S0 = "16foo"
    $N0 = $S0
    print $S0
    print " = "
    say $N0
.end

pmichaud@orange:~/parrot/RELEASE_1_0_0$ ./parrot ../x.pir
6foo = 6
16foo = 16
pmichaud@orange:~/parrot/RELEASE_1_0_0$ 

[bacek]

Fixed in r47432. Thanks for report!