--- /cygdrive/c/comp/perl-5.33.2/sv.c   2020-10-04 18:15:27.028350200 +1100
+++ sv.c        2020-10-04 18:13:55.508841200 +1100
@@ -13109,13 +13109,17 @@
                 /* check, in manner not involving wrapping, that it will
                  * fit in ebuf  */
                 && float_need < sizeof(ebuf)
-                && sizeof(ebuf) - float_need > precis
+                && sizeof(ebuf) - float_need > precis + 7
                 && !(width || left || plus || alt)
                 && !fill
                 && intsize != 'q'
             ) {
                 WITH_LC_NUMERIC_SET_TO_NEEDED_IN(in_lc_numeric,
-                    SNPRINTF_G(fv, ebuf, sizeof(ebuf), precis)
+#if defined(USE_LONG_DOUBLE)
+                    PERL_UNUSED_RESULT(sprintf(ebuf, "%.*Lg", (int)precis, (NV) fv))
+#else
+                    PERL_UNUSED_RESULT(sprintf(ebuf, "%.*g",  (int)precis, (NV) fv))
+#endif
                 );
                 elen = strlen(ebuf);
                 eptr = ebuf;