From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Fri, 20 Feb 1998 15:46:15 +0000 (+0000)
Subject: Initialise $@ early (fixes t/lib/ph.t for threaded perl).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78857c3c631dc8d94f4168aa465a27b5efceb36e;p=p5sagit%2Fp5-mst-13.2.git

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