This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: 64 bit SEGV in t/op/regmesg.t
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 30 Mar 2002 21:36:23 +0000 (22:36 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 30 Mar 2002 23:19:59 +0000 (23:19 +0000)
Message-ID: <20020330213623.A677@rafael>

p4raw-id: //depot/perl@15628

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++, '}');