1 files changed, 2 insertions, 0 deletions
diff --git a/util.c b/util.c
index 88e78126a5..da53fa4850 100644
--- a/util.c
+++ b/util.c
@@ -4319,7 +4319,9 @@ Perl_upg_version(pTHX_ SV *ver)
     if ( SvNOK(ver) ) /* may get too much accuracy */ 
     {
 	char tbuf[64];
+	SET_NUMERIC_STANDARD();
 	STRLEN len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver));
+	SET_NUMERIC_LOCAL();
 	while (tbuf[len-1] == '0' && len > 0) len--;
 	version = savepvn(tbuf, len);
     }