X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.h;h=6dd31c3810bea785b399ff476421fcfe50bb8a3a;hb=b1fbf5c3d1dc6dd7934002da04dede2ae2e3ef65;hp=849b7d23188d2d1d07b42d76e5dda5ac30507f36;hpb=d4ac975eac140a6fda54f99664f15120fd97e7be;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.h b/opcode.h
index 849b7d2..6dd31c3 100644
--- a/opcode.h
+++ b/opcode.h
@@ -877,7 +877,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 	MEMBER_TO_FPTR(Perl_pp_sne),
 	MEMBER_TO_FPTR(Perl_pp_scmp),
 	MEMBER_TO_FPTR(Perl_pp_bit_and),
-	MEMBER_TO_FPTR(Perl_pp_bit_xor),
+	MEMBER_TO_FPTR(Perl_pp_bit_or),	/* Perl_pp_bit_xor */
 	MEMBER_TO_FPTR(Perl_pp_bit_or),
 	MEMBER_TO_FPTR(Perl_pp_negate),
 	MEMBER_TO_FPTR(Perl_pp_i_negate),