summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-09-01 18:54:03 -0600
committerKarl Williamson <khw@cpan.org>2014-09-06 21:12:05 -0600
commit3da4c246d54e1970c6c140305135aea1f1745fbd (patch)
treea6f7f683e1de0efdcfc1a4c956112b536fd73a46 /regcomp.c
parentdeda9400516b26041cef43bb345b354992a5da95 (diff)
downloadperl-3da4c246d54e1970c6c140305135aea1f1745fbd.tar.gz
recomp.c: output given warning in only one pass
Otherwise, it will be output multiple times. This warning was untested for as well.
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 08b267bf8d..1730724dc1 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -10901,7 +10901,7 @@ S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state, regnode** node_p,
RExC_parse = endbrace;
vFAIL("\\N{} in character class restricted to one character");
}
- else {
+ else if (PASS2) {
ckWARNreg(endchar, "Using just the first character returned by \\N{} in character class");
}
}