Re: Regex-Unicode bugs

Message-ID: <20020327134806.C18945@rafael>

regmesg.t patch still would be nice.

p4raw-id: //depot/perl@15574

diff --git a/regcomp.c b/regcomp.c
index c124d48..14a2450 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3597,7 +3597,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
            case 'p':
            case 'P':
                if (RExC_parse >= RExC_end)
-                   vFAIL("Empty \\p{}");
+                   vFAIL2("Empty \\%c{}", value);
                if (*RExC_parse == '{') {
                    U8 c = (U8)value;
                    e = strchr(RExC_parse++, '}');