summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-05-04 23:55:00 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-07 17:15:45 +0000
commit4373e329bbd25cac77cfe128757db8cbb63c47bb (patch)
tree0f56bb79f020f97f6f453ae711bed9154d9608e6 /regcomp.c
parent892b45be8fb48b672b1d646c00fb1b9bac292d07 (diff)
downloadperl-4373e329bbd25cac77cfe128757db8cbb63c47bb.tar.gz
GCC attributes!
Message-ID: <20050504215540.GA20413@petdance.com> p4raw-id: //depot/perl@24414
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 bc324ed72a..aa71b78c69 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6105,7 +6105,7 @@ Perl_re_intuit_string(pTHX_ regexp *prog)
GET_RE_DEBUG_FLAGS_DECL;
DEBUG_COMPILE_r(
{ STRLEN n_a;
- char *s = SvPV(prog->check_substr
+ const char *s = SvPV(prog->check_substr
? prog->check_substr : prog->check_utf8, n_a);
if (!PL_colorset) reginitcolors();