# 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
