diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-21 18:28:22 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-21 18:28:22 +0000 |
| commit | 54b9620dd49f76536ba0792f6f471615a414bd6a (patch) | |
| tree | 0f7080854c047d90b09822aec3b81dd2fcbabd89 /pp_hot.c | |
| parent | ff2faa2b5a0809a5124aa90fc1d07503e49a73fb (diff) | |
| download | perl-54b9620dd49f76536ba0792f6f471615a414bd6a.tar.gz | |
$_ is now per-thread (rather a lot of changes). Only tested under
*-linux-thread at the moment.
p4raw-id: //depot/perl@274
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -759,7 +759,7 @@ PP(pp_match) if (op->op_flags & OPf_STACKED) TARG = POPs; else { - TARG = GvSV(defgv); + TARG = DEFSV; EXTEND(SP,1); } PUTBACK; /* EVAL blocks need stack_sp. */ @@ -1432,7 +1432,7 @@ PP(pp_subst) if (op->op_flags & OPf_STACKED) TARG = POPs; else { - TARG = GvSV(defgv); + TARG = DEFSV; EXTEND(SP,1); } if (SvREADONLY(TARG) @@ -1705,7 +1705,7 @@ PP(pp_grepwhile) src = stack_base[*markstack_ptr]; SvTEMP_off(src); - GvSV(defgv) = src; + DEFSV = src; RETURNOP(cLOGOP->op_other); } |