1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 70d2331913..a4454fe010 100644
--- a/toke.c
+++ b/toke.c
@@ -12101,7 +12101,7 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp)
                     NV nv_mult = 1.0;
 #endif
                     bool accumulate = TRUE;
-                    U8 b;
+                    U8 b = 0; /* silence compiler warning */
                     int lim = 1 << shift;
                     for (h++; ((isXDIGIT(*h) && (b = XDIGIT_VALUE(*h)) < lim) ||
                                *h == '_'); h++) {