From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 30 Mar 2002 21:36:23 +0000 (+0100)
Subject: Re: 64 bit SEGV in t/op/regmesg.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a4859cd23ed6ee8a63ab2b368aa795a8bc11a56;p=p5sagit%2Fp5-mst-13.2.git

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