This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Mark scan_num as Core only
authorKarl Williamson <khw@cpan.org>
Wed, 22 Jul 2020 12:19:36 +0000 (06:19 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 20 Dec 2020 16:28:07 +0000 (09:28 -0700)
This is used by the toker to scan a number; there is no cpan usage

embed.fnc

index 3fd59fc..ee448c0 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1729,7 +1729,7 @@ S |OP*    |scalarseq      |NULLOK OP* o
 p      |OP*    |scalarvoid     |NN OP* o
 Apd    |NV     |scan_bin       |NN const char* start|STRLEN len|NN STRLEN* retlen
 Apd    |NV     |scan_hex       |NN const char* start|STRLEN len|NN STRLEN* retlen
 p      |OP*    |scalarvoid     |NN OP* o
 Apd    |NV     |scan_bin       |NN const char* start|STRLEN len|NN STRLEN* retlen
 Apd    |NV     |scan_hex       |NN const char* start|STRLEN len|NN STRLEN* retlen
-Ap     |char*  |scan_num       |NN const char* s|NN YYSTYPE *lvalp
+Cp     |char*  |scan_num       |NN const char* s|NN YYSTYPE *lvalp
 Apd    |NV     |scan_oct       |NN const char* start|STRLEN len|NN STRLEN* retlen
 Axpd   |OP*    |op_scope       |NULLOK OP* o
 : Only used by perl.c/miniperl.c, but defined in caretx.c
 Apd    |NV     |scan_oct       |NN const char* start|STRLEN len|NN STRLEN* retlen
 Axpd   |OP*    |op_scope       |NULLOK OP* o
 : Only used by perl.c/miniperl.c, but defined in caretx.c