Foolishly I committed change 23753 before remembering to test without

ithreads. No tests => bugs. This should fix them.

p4raw-id: //depot/perl@23755

diff --git a/perl.c b/perl.c
index b4b2aadf2b2a0c89fd2d46f1850a2a96b6367272..c59d8fb170c93f75c393c7a81a0d255bb665c4da 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -123,7 +123,7 @@ static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 #endif
 
 static void
-S_init_tls_and_interp(pTHX)
+S_init_tls_and_interp(PerlInterpreter *my_perl)
 {
     if (!PL_curinterp) {                       
        PERL_SET_INTERP(my_perl);