mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

grok_bin_oct_hex: Change name of internal flag

Browse Source 
This clarifies its meaning
This commit is contained in:
Karl Williamson 2025-11-05 07:35:49 -07:00 committed by Karl Williamson
parent 854ed42b66
commit 112a9c3e46
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
numeric.c
View File

@ -401,7 +401,7 @@ Perl_grok_bin_oct_hex(pTHX_ const char *start,
const bool allow_underscores =
cBOOL(input_flags & ( PERL_SCAN_ALLOW_UNDERSCORES
|PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES));
|PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES_ONLY));
const char * s = start;
const char * e = start + *len_p;
@ -557,7 +557,7 @@ Perl_grok_bin_oct_hex(pTHX_ const char *start,
* set */
&& ( LIKELY(s > s0)
|| UNLIKELY(! ( input_flags
& PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES))))
& PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES_ONLY))))
{
++s;

4
perl.h
View File

@ -8344,8 +8344,8 @@ EXTERN_C int flock(int fd, int op);
/* Don't warn on overflow; output flag still set */
# define PERL_SCAN_SILENT_OVERFLOW 0x80
/* Forbid a leading underscore, which the other one doesn't */
# define PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES 0x100
/* grok_??? accept a stand-alone underscore between digits only in numbers */
# define PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES_ONLY 0x100
#endif

2
regcomp.c
View File

@ -5352,7 +5352,7 @@ S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state,
I32 flags = PERL_SCAN_SILENT_OVERFLOW
| PERL_SCAN_SILENT_ILLDIGIT
| PERL_SCAN_NOTIFY_ILLDIGIT
| PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES
| PERL_SCAN_ALLOW_MEDIAL_UNDERSCORES_ONLY
| PERL_SCAN_DISALLOW_PREFIX;
STRLEN len = e - RExC_parse;
NV overflow_value;