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 58d86ea..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 */
@@ -1994,7 +1994,7 @@ EXT U32 PL_opargs[] = {
        0x00001a44,     /* dump */
        0x00001a44,     /* goto */
        0x00013644,     /* exit */
-       0x0012c81c,     /* open */
+       0x0132c81c,     /* open */
        0x0001d614,     /* close */
        0x000cc814,     /* pipe_op */
        0x0000d61c,     /* fileno */