diff options
| author | Roca, Ignasi <ignasi.roca@fujitsu.siemens.es> | 2000-10-20 15:17:27 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-20 20:44:31 +0000 |
| commit | b73d6f5067e468c85b81d9c800ab577f770b45b3 (patch) | |
| tree | 26fbd8edbcc23dfd82cd6a2bf06816b43348391c /perlapi.c | |
| parent | 20141f0ebfa7c09c3e5e502bba1c4e6e40b3072c (diff) | |
| download | perl-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 'perlapi.c')
| -rw-r--r-- | perlapi.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2652,9 +2652,9 @@ Perl_scan_hex(pTHXo_ char* start, I32 len, I32* retlen) #undef Perl_scan_num char* -Perl_scan_num(pTHXo_ char* s) +Perl_scan_num(pTHXo_ char* s, YYSTYPE *lvalp) { - return ((CPerlObj*)pPerl)->Perl_scan_num(s); + return ((CPerlObj*)pPerl)->Perl_scan_num(s, lvalp); } #undef Perl_scan_oct |