diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 16:38:27 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 16:38:27 +0000 |
commit | 533c011aecf9bca2c9ad025efccd7b74ad222cda (patch) | |
tree | 842693196e76c6669b3d83287b1ed7dda8bf68c3 /mg.c | |
parent | 8f8722428a3062985b7d543348f72ccabf60a063 (diff) | |
download | perl-533c011aecf9bca2c9ad025efccd7b74ad222cda.tar.gz |
PL_ stuff for threads
p4raw-id: //depot/ansiperl@1534
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1899,7 +1899,7 @@ sighandler(int sig) HV *st; SV *sv, *tSv = PL_Sv; CV *cv = Nullcv; - OP *myop = op; + OP *myop = PL_op; U32 flags = 0; I32 o_save_i = PL_savestack_ix, type; XPV *tXpv = PL_Xpv; @@ -1975,7 +1975,7 @@ cleanup: PL_scopestack_ix -= 1; if (flags & 64) SvREFCNT_dec(sv); - op = myop; /* Apparently not needed... */ + PL_op = myop; /* Apparently not needed... */ PL_Sv = tSv; /* Restore global temporaries. */ PL_Xpv = tXpv; |