mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
regcomp.c: Remove extraneous conditional
This is checking that the argument is an ASCII \w that isn't an underscore. But in this range, that is identical to an alphanumeric, which there is already a macro for, so use that single macro instead of the two.
This commit is contained in:
parent
b933ecdd4a
commit
fb03d6749a
@ -10213,7 +10213,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
|
||||
}
|
||||
default:
|
||||
/* Allow \_ to not give an error */
|
||||
if (isWORDCHAR(value) && value != '_') {
|
||||
if (isALPHANUMERIC_A(value)) {
|
||||
if (strict) {
|
||||
vFAIL2("Unrecognized escape \\%c in character class",
|
||||
(int)value);
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user