summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
authorRoca, Ignasi <ignasi.roca@fujitsu.siemens.es>2000-10-20 15:17:27 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-20 20:44:31 +0000
commitb73d6f5067e468c85b81d9c800ab577f770b45b3 (patch)
tree26fbd8edbcc23dfd82cd6a2bf06816b43348391c /perly.y
parent20141f0ebfa7c09c3e5e502bba1c4e6e40b3072c (diff)
downloadperl-b73d6f5067e468c85b81d9c800ab577f770b45b3.tar.gz
Make scan_num() reëntrant, as suggested in
Subject: [PATCH perl@7229] Rentrant parser and yylex() Message-ID: <5930DC161690D211966700902715754702DA09CD@madt009a.siemens.es> p4raw-id: //depot/perl@7382
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y2
1 files changed, 1 insertions, 1 deletions
diff --git a/perly.y b/perly.y
index 5170b365f3..af0159e721 100644
--- a/perly.y
+++ b/perly.y
@@ -266,7 +266,7 @@ nexpr : /* NULL */
;
texpr : /* NULL means true */
- { (void)scan_num("1"); $$ = yylval.opval; }
+ { (void)scan_num("1", &yylval); $$ = yylval.opval; }
| expr
;