X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=c24c8e41536655ad6d4ed737719fe14c1363d940;hb=c4a9c09d5b30a93b6241aff3c9915e33e4e41eeb;hp=874f8ab4dda0b6a8578bc1b57c1f888152fe9b95;hpb=3480a8d2d46562b783befbcecf951d5a2b4067d7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index 874f8ab..c24c8e4 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;