Change 32997 missed one conditionally unused argument.

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

diff --git a/perl.c b/perl.c
index 89dc73a..ccdfa9f 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -3774,6 +3774,8 @@ S_validate_suid(pTHX_ const char *validarg, const char *scriptname,
 #ifdef DOSUID
 #  ifdef IAMSUID
     PERL_UNUSED_ARG(scriptname);
+#  else
+    PERL_UNUSED_ARG(suidscript);
 #  endif
 #else
     PERL_UNUSED_ARG(validarg);