From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 9 Feb 2006 18:25:02 +0000 (+0000)
Subject: Fix breakage in S_set_csh() from change #27136.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b26759679e3267af95c36c8d4b2d8bd62de51599;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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