Searched refs:allow_underscores (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dnumeric.c146 bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; local
194 if (bit == '_' && len && allow_underscores && (bit = s[1])
260 bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; local
309 if (*s == '_' && len && allow_underscores && s[1]
357 bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES; local
391 if (digit == ('_' - '0') && len && allow_underscores

Completed in 17 milliseconds