diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 15:46:15 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 15:46:15 +0000 |
| commit | 78857c3c631dc8d94f4168aa465a27b5efceb36e (patch) | |
| tree | 5ac10ff64170eb2bda55088542b20c42c3171438 /perl.c | |
| parent | cf042ed955280d58d288e6d607f95462cfc5db6c (diff) | |
| download | perl-78857c3c631dc8d94f4168aa465a27b5efceb36e.tar.gz | |
Initialise $@ early (fixes t/lib/ph.t for threaded perl).
p4raw-id: //depot/perl@560
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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 */ |