[perl #51052] [perl6] PCT has problems with integer literals

[via RT]

# New Ticket Created by  Stephen Weeks 
# Please include the string:  [perl #51052]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=51052 >


[EMAIL PROTECTED] perl6]$ echo 3.say | ./perl6 --target=pir

.namespace 
.sub "_block10" 
    .lex "$_", $P11
    .lex "$/", $P12
    $P13 = getinterp
    $P13 = $P13['lexpad';1]
    if null $P13 goto no_match_to_copy
    $P13 = $P13['$/']
    store_lex '$/', $P13
  no_match_to_copy:
    .lex "$!", $P14
    $P15 = 3."say"()
    .return ($P15)
.end

Particularly notice: $P15 = 3."say"()