# New Ticket Created by Vasily Chekalkin # Please include the string: [perl #55666] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=55666 >
Hello. xor still short-circuit but returns Bool::False :) There is patch attached. -- Bacek.
diff --git a/compilers/pct/src/PAST/Compiler.pir b/compilers/pct/src/PAST/Compiler.pir index 52ad089..4c91666 100644 --- a/compilers/pct/src/PAST/Compiler.pir +++ b/compilers/pct/src/PAST/Compiler.pir @@ -1451,7 +1451,7 @@ a second child is found that evaluates as true. ops.'push_pirop'('set', ops, bpost) ops.'push_pirop'('goto', endlabel) ops.'push'(falselabel) - ops.'push_pirop'('new', ops, '"Undef"') + ops.'push_pirop'('get_hll_global', ops, '["Bool"]', '"False"') ops.'push'(endlabel) .return (ops) .end