summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-05-21 04:06:40 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-24 12:33:01 +0000
commit504618e92cbf415cc727244b0e64aab9ddfb1c10 (patch)
tree013cc7cb013c430f1c256b1dd1109b8b82da0241 /toke.c
parent3480a8d2d46562b783befbcecf951d5a2b4067d7 (diff)
downloadperl-504618e92cbf415cc727244b0e64aab9ddfb1c10.tar.gz
embed.fnc cleanup + SvPVX_const usage
Message-ID: <20050521140640.GB875@petdance.com> p4raw-id: //depot/perl@24561
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
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;