Fix pointer casts.

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index 354b1d4..df965a3 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -6619,7 +6619,7 @@ Perl_scan_num(pTHX_ char *start)
                sv_setnv(sv, n);
            }
            else {
-#if UV_SIZEOF > 4
+#if UVSIZE > 4
                dTHR;
                if (ckWARN(WARN_PORTABLE) && u > 0xffffffff)
                    Perl_warner(aTHX_ WARN_PORTABLE,