summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-04-10 20:05:52 +0000
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-04-10 20:05:52 +0000
commitb35b24033ff5a2171d5dc795e027358506aa01ff (patch)
tree66dd8c938d9461cd6e15a29269a4c08313fb72aa /toke.c
parent11343788cbaaede18e3146b5219d2fbdaeaf516e (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 270cf456c1..90576e7053 100644
--- a/toke.c
+++ b/toke.c
@@ -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);