# New Ticket Created by Allison Randal # Please include the string: [perl #24392] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=24392 >
This patch changes the test instead of the code. The code is actually correct. (We decided earlier this year that xor should be consistent with the other binary logical operators and return the value of the operand when it evalates as true.) The symbol '~~' is out-of-date, it should be '^^' now, but that's better fixed in one sweeping operator update patch. This is the last failing test except for the regex tests. I'm leaving that section assuming Steve's changes will make it obsolete. Allison -- attachment 1 ------------------------------------------------------ url: http://rt.perl.org/rt2/attach/66980/49982/ee2905/p6c_xor_returns_value.patch
Index: languages/perl6/t/compiler/basic.t =================================================================== RCS file: /cvs/public/parrot/languages/perl6/t/compiler/basic.t,v retrieving revision 1.1 diff -d -u -r1.1 basic.t --- languages/perl6/t/compiler/basic.t 13 Oct 2003 17:00:57 -0000 1.1 +++ languages/perl6/t/compiler/basic.t 3 Nov 2003 01:32:16 -0000 @@ -154,8 +154,8 @@ 0 -1 -1 +2 +2 0 0 0