diff options
| author | Karl Williamson <khw@cpan.org> | 2020-01-16 14:42:35 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-01-23 15:46:56 -0700 |
| commit | fcc04d73946f50bda2ffb344bea778338ce39003 (patch) | |
| tree | a42d5f54c020a4d661f82b32a2a69cd1769bf502 /perl.h | |
| parent | 4adf113af1ee3b1c6283f36c81ffefc1adf400ff (diff) | |
| download | perl-fcc04d73946f50bda2ffb344bea778338ce39003.tar.gz | |
(toke|regcomp).c: Use common fcn to handle \0 problems
This changes warning messages for too short \0 octal constants to use
the function introduced in the previous commit. This function assures a
consistent and clear warning message, which is slightly different than
the one this commit replaces. I know of no CPAN code which depends on
this warning's wording.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -7143,8 +7143,8 @@ A synonym for L</grok_numeric_radix> #define PERL_SCAN_TRAILING 0x10 /* grok_number_flags() allow trailing and set IS_NUMBER_TRAILING */ -#ifdef PERL_CORE /* These are considered experimental, so not exposed - publicly */ +/* These are considered experimental, so not exposed publicly */ +#if defined(PERL_CORE) || defined(PERL_EXT) /* grok_??? don't warn about very large numbers which are <= UV_MAX; * output: found such a number */ # define PERL_SCAN_SILENT_NON_PORTABLE 0x20 |