Initialise $@ early (fixes t/lib/ph.t for threaded perl).
Malcolm Beattie [Fri, 20 Feb 1998 15:46:15 +0000 (15:46 +0000)]
p4raw-id: //depot/perl@560

perl.c

diff --git a/perl.c b/perl.c
index 418c491..ec232e4 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2839,6 +2839,7 @@ init_main_thread()
     sv_setpvn(bodytarget, "", 0);
     formtarget = bodytarget;
     thr->errsv = newSVpv("", 0);
+    (void) find_threadsv("@"); /* Ensure $@ is initialised early */
     return thr;
 }
 #endif /* USE_THREADS */