This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Foolishly I committed change 23753 before remembering to test without
authorNicholas Clark <nick@ccl4.org>
Wed, 5 Jan 2005 21:36:26 +0000 (21:36 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 5 Jan 2005 21:36:26 +0000 (21:36 +0000)
ithreads. No tests => bugs. This should fix them.

p4raw-id: //depot/perl@23755

perl.c

diff --git a/perl.c b/perl.c
index b4b2aad..c59d8fb 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);