Pulled from regcomp.c.
*/
PERL_STATIC_INLINE I32
-S_regcurly(pTHX_ const char *s,
- const bool rbrace_must_be_escaped /* Should the terminating '} be
- preceded by a backslash? This
- is an abnormal case */
- )
+S_regcurly(const char *s)
{
PERL_ARGS_ASSERT_REGCURLY;
s++;
}
- return (rbrace_must_be_escaped)
- ? *s == '\\' && *(s+1) == '}'
- : *s == '}';
+ return *s == '}';
}
/* XXX Add documentation after final interface and behavior is decided */
"Character following \"\\c\" must be printable ASCII");
}
else if (source == '{') {
- assert(isPRINT_A(toCTRL('{')));
-
- /* diag_listed_as: Use "%s" instead of "%s" */
- Perl_croak(aTHX_ "Use \"%c\" instead of \"\\c{\"", toCTRL('{'));
+ const char control = toCTRL('{');
+ if (isPRINT_A(control)) {
+ /* diag_listed_as: Use "%s" instead of "%s" */
+ Perl_croak(aTHX_ "Use \"%c\" instead of \"\\c{\"", control);
+ }
+ else {
+ Perl_croak(aTHX_ "Sequence \"\\c{\" invalid");
+ }
}
result = toCTRL(source);
/* Documentation to be supplied when interface nailed down finally
* This returns FALSE if there is an error which the caller need not recover
- * from; , otherwise TRUE. In either case the caller should look at *len
+ * from; , otherwise TRUE.
* On input:
* s is the address of a pointer to a NULL terminated string that begins
* with 'x', and the previous character was a backslash. At exit, *s
assert(**s == 'x');
(*s)++;
- if (strict) {
+ if (strict || ! output_warning) {
flags |= PERL_SCAN_SILENT_ILLDIGIT;
}