This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence win32 smoke compiler warning
authorKarl Williamson <public@khwilliamson.com>
Sat, 12 Feb 2011 20:38:53 +0000 (13:38 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 14 Feb 2011 03:45:38 +0000 (20:45 -0700)
toke.c

diff --git a/toke.c b/toke.c
index 8dadf61..113632e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2607,8 +2607,8 @@ S_scan_const(pTHX_ char *start)
     register char *d = SvPVX(sv);              /* destination for copies */
     bool dorange = FALSE;                      /* are we in a translit range? */
     bool didrange = FALSE;                     /* did we just finish a range? */
-    I32  has_utf8 = FALSE;                     /* Output constant is UTF8 */
-    I32  this_utf8 = UTF;                      /* Is the source string assumed
+    bool has_utf8 = FALSE;                     /* Output constant is UTF8 */
+    bool  this_utf8 = cBOOL(UTF);              /* Is the source string assumed
                                                   to be UTF8?  But, this can
                                                   show as true when the source
                                                   isn't utf8, as for example