summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2002-03-30 22:36:23 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-30 23:19:59 +0000
commit2a4859cd23ed6ee8a63ab2b368aa795a8bc11a56 (patch)
tree77f53d8e214364b9575fbd1cb58126b4402c94f1 /regcomp.c
parent0dfa044182f5a9f8cf8f995c4c0c315ce3198e94 (diff)
downloadperl-2a4859cd23ed6ee8a63ab2b368aa795a8bc11a56.tar.gz
Re: 64 bit SEGV in t/op/regmesg.t
Message-ID: <20020330213623.A677@rafael> p4raw-id: //depot/perl@15628
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 14a245025d..43c46bb2bb 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++, '}');