# 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.
