Lines Matching defs:strict
36 actually perform the parsing. Can use either strict or lax validation rules.
44 Perl_prescan_version2(pTHX_ const char *s, bool strict,
46 Perl_prescan_version(pTHX_ const char *s, bool strict,
73 if (strict && d[0] == '0' && isDIGIT(d[1])) {
88 if (strict) {
105 if (strict && j > 3) {
110 if (strict) {
132 if (strict && i < 2) {
141 /* special strict case for leading '.' or '0' */
142 if (strict) {
180 if (strict) {
197 if (!isDIGIT(*d) && (strict || ! (!*d || *d == ';' || isSPACE(*d) || *d == '{' || *d == '}') )) {
198 /* strict or lax-but-not-the-end */
208 if (strict) {
216 if (strict) {