Fix breakage in S_set_csh() from change #27136.

p4raw-link: @27136 on //depot/perl: 5f66b61cbe1f2ea985f00c0d9a66153e7a3b6ee1

p4raw-id: //depot/perl@27140

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