From 504618e92cbf415cc727244b0e64aab9ddfb1c10 Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Sat, 21 May 2005 04:06:40 -0500 Subject: embed.fnc cleanup + SvPVX_const usage Message-ID: <20050521140640.GB875@petdance.com> p4raw-id: //depot/perl@24561 --- toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'toke.c') diff --git a/toke.c b/toke.c index 874f8ab4dd..c24c8e4153 100644 --- a/toke.c +++ b/toke.c @@ -978,7 +978,7 @@ Perl_str_to_version(pTHX_ SV *sv) STRLEN len; const char *start = SvPVx(sv,len); const char *end = start + len; - bool utf = SvUTF8(sv) ? TRUE : FALSE; + const bool utf = SvUTF8(sv) ? TRUE : FALSE; while (start < end) { STRLEN skip; UV n; -- cgit v1.2.1