diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 15:20:43 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 15:20:43 +0000 |
commit | 2faa37ccf8e46b865687f0ab4992b29a75eb79ea (patch) | |
tree | 39119f36375c3511f7e95acb160221c4f3b066ea /toke.c | |
parent | 38a03e6ea6b9b346c41b9006fbeedc3b0f0130b2 (diff) | |
download | perl-2faa37ccf8e46b865687f0ab4992b29a75eb79ea.tar.gz |
Change name of OP_SPECIFIC to OP_THREADSV. Fixed perl_get_sv when
getting per-thread magicals. Fixed thr->errsv initialisation.
p4raw-id: //depot/perl@229
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1263,7 +1263,7 @@ yylex() && !isALPHA(tokenbuf[1]) /* Rule out obvious non-magicals */ && (tmp = find_thread_magical(&tokenbuf[1])) != NOT_IN_PAD) { - yylval.opval = newOP(OP_SPECIFIC, 0); + yylval.opval = newOP(OP_THREADSV, 0); yylval.opval->op_targ = tmp; return PRIVATEREF; } @@ -1404,7 +1404,7 @@ yylex() nextval[nexttoke].ival = 0; force_next(','); #ifdef USE_THREADS - nextval[nexttoke].opval = newOP(OP_SPECIFIC, 0); + nextval[nexttoke].opval = newOP(OP_THREADSV, 0); nextval[nexttoke].opval->op_targ = find_thread_magical("\""); force_next(PRIVATEREF); #else |