This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Suppress compiler warning
[perl5.git] / op.c
diff --git a/op.c b/op.c
index daef81a..fc0306a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -11980,6 +11980,7 @@ const_sv_xsub(pTHX_ CV* cv)
     dVAR;
     dXSARGS;
     SV *const sv = MUTABLE_SV(XSANY.any_ptr);
+    PERL_UNUSED_ARG(items);
     if (!sv) {
        XSRETURN(0);
     }