Random consting

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

diff --git a/util.c b/util.c
index dfd912f..657a8f5 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3018,6 +3018,8 @@ Perl_set_context(void *t)
     if (pthread_setspecific(PL_thr_key, t))
        Perl_croak_nocontext("panic: pthread_setspecific");
 #  endif
+#else
+    (void)t;
 #endif
 }