Add an option for the grok_xxx() to silently ignore bad digits.

p4raw-id: //depot/perl@19184

1 files changed, 1 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index fa802ac345..73a927e9e6 100644
--- a/perl.h
+++ b/perl.h
@@ -4158,6 +4158,7 @@ int flock(int fd, int op);
 /* Input flags: */
 #define PERL_SCAN_ALLOW_UNDERSCORES   0x01 /* grok_??? accept _ in numbers */
 #define PERL_SCAN_DISALLOW_PREFIX     0x02 /* grok_??? reject 0x in hex etc */
+#define PERL_SCAN_SILENT_ILLDIGIT     0x04 /* grok_??? not warn about illegal digits */
 /* Output flags: */
 #define PERL_SCAN_GREATER_THAN_UV_MAX 0x02 /* should this merge with above? */