diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-04-10 20:05:52 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-04-10 20:05:52 +0000 |
commit | b35b24033ff5a2171d5dc795e027358506aa01ff (patch) | |
tree | 66dd8c938d9461cd6e15a29269a4c08313fb72aa /toke.c | |
parent | 11343788cbaaede18e3146b5219d2fbdaeaf516e (diff) | |
download | perl-b35b24033ff5a2171d5dc795e027358506aa01ff.tar.gz |
Tweaks to allow compilation without -DUSE_THREADS and fix
missing parens (pad allocation) in the tokener.
p4raw-id: //depot/thrperl@5
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2115,7 +2115,7 @@ yylex() if (*s == '{') tokenbuf[0] = '%'; } - if (tmp = pad_findmy(tokenbuf) != NOT_IN_PAD) { + if ((tmp = pad_findmy(tokenbuf)) != NOT_IN_PAD) { nextval[nexttoke].opval = newOP(OP_PADANY, 0); nextval[nexttoke].opval->op_targ = tmp; force_next(PRIVATEREF); |