Merging pp_bit_or and pp_bit_xor shrinks the object code by about .7K.

The overloading tests are not free.

p4raw-id: //depot/perl@27126

1 files changed, 5 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index a96c75268d..6cc018b30a 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1074,6 +1074,11 @@ PP(pp_sqrt)
     return pp_sin();
 }
 
+PP(pp_bit_xor)
+{
+    return pp_bit_or();
+}
+
 U8 *
 Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv)
 {