Test comment fix by Dominic Dunlop

[p5sagit/p5-mst-13.2.git] / pad.c

diff --git a/pad.c b/pad.c
index d13cd75..3ab7497 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -411,6 +411,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype)
     SV *sv;
     I32 retval;
 
+    PERL_UNUSED_ARG(optype);
     ASSERT_CURPAD_ACTIVE("pad_alloc");
 
     if (AvARRAY(PL_comppad) != PL_curpad)