This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate change#3893, make it conditional on bincompat5005
[perl5.git] / opcode.h
index 7d9bd81..d9ec0d5 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -1965,7 +1965,7 @@ EXT U32 PL_opargs[] = {
        0x00000200,     /* flop */
        0x00000600,     /* and */
        0x00000600,     /* or */
-       0x00022606,     /* xor */
+       0x00022406,     /* xor */
        0x00000640,     /* cond_expr */
        0x00000604,     /* andassign */
        0x00000604,     /* orassign */