Initialise $@ early (fixes t/lib/ph.t for threaded perl).

p4raw-id: //depot/perl@560

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