[perl #55446] [BUG] Bug in handling variables.

[via RT]

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


Hello.

<exp_evalbot> rakudo r28164 OUTPUT[1␤␤]
<bacek> rakudo: say (0+(defined $!)) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[1␤]
<bacek> rakudo: say (defined $!) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[1␤]
<bacek> rakudo: try{die}; say defined $!;
<exp_evalbot> rakudo r28164 OUTPUT[1␤]
<bacek> rakudo: try{die}; say defined $!; say (defined $!) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[1␤␤]
<bacek> rakudo: try{die}; say (defined $!) xor 1;
<exp_evalbot> rakudo r28164 OUTPUT[␤]

Two last statements produces "Undef" instead of expected result.

-- 
Bacek.