[ID 20001219.011] Not OK: perl v5.7.1 +DEVEL8205 on alpha-dec_osf-perlio-multi 4...

Message-Id: <200012200230.VAA17619@leggy.zk3.dec.com>

p4raw-id: //depot/perl@8206

diff --git a/sv.c b/sv.c
index 1fbf83f..fd7d67d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -1668,11 +1668,10 @@ S_sv_2iuv_non_preserve (pTHX_ register SV *sv, I32 numtype)
        }
        return IS_NUMBER_OVERFLOW_IV;
     }
-    return S_sv_2inuv_non_preserve (sv, numtype);
+    return S_sv_2inuv_non_preserve(aTHX_ sv, numtype);
 }
 #endif /* NV_PRESERVES_UV*/
 
-
 IV
 Perl_sv_2iv(pTHX_ register SV *sv)
 {