This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Need to update test count from change #27440.
[perl5.git] / mathoms.c
index a96c752..3636a9b 100644 (file)
--- 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)
 {
@@ -1101,6 +1106,7 @@ potentially warn under some level of strict-ness.
 void
 Perl_sv_nolocking(pTHX_ SV *sv)
 {
+    PERL_UNUSED_CONTEXT;
     PERL_UNUSED_ARG(sv);
 }
 
@@ -1120,6 +1126,7 @@ potentially warn under some level of strict-ness.
 void
 Perl_sv_nounlocking(pTHX_ SV *sv)
 {
+    PERL_UNUSED_CONTEXT;
     PERL_UNUSED_ARG(sv);
 }