Fix breakage in S_set_csh() from change #27136.

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index c5f9c8f..39eb52e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -10923,8 +10923,10 @@ S_set_csh(pTHX)
     if (!PL_cshlen)
        PL_cshlen = strlen(PL_cshname);
 #else
+#if defined(USE_ITHREADS)
     PERL_UNUSED_ARG(my_perl);
 #endif
+#endif
 }
 
 I32