If no cuserid(), s is unused.

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 756e027..ed788b8 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -3372,6 +3372,7 @@ cuserid(s = 0)
 #ifdef HAS_CUSERID
   RETVAL = cuserid(s);
 #else
+  PERL_UNUSED_VAR(s);
   RETVAL = 0;
   not_here("cuserid");
 #endif