Re: 64 bit SEGV in t/op/regmesg.t

Message-ID: <20020330213623.A677@rafael>

p4raw-id: //depot/perl@15628

diff --git a/regcomp.c b/regcomp.c
index 14a2450..43c46bb 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)
-                   vFAIL2("Empty \\%c{}", value);
+                   vFAIL2("Empty \\%c{}", (U8)value);
                if (*RExC_parse == '{') {
                    U8 c = (U8)value;
                    e = strchr(RExC_parse++, '}');