sprintf does not display 54 digits on VMS

It displays 17, which is what Perl and apparently just about
everybody else used to do. I'm not convinced there was ever a
bug here as no standard I can find says you have to display 3
times as many digits as are necessary to provide a non-lossy
round trip from double to character and back.

diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t
index b1996e7..aa942df 100644 (file)
--- a/t/op/sprintf2.t
+++ b/t/op/sprintf2.t
@@ -1187,6 +1187,8 @@ if($Config{nvsize} == 8) {
     TODO: {
         local $::TODO = 'Extended precision %g formatting' if $^O eq 'cygwin'
                                    or
+                               $^O eq 'VMS'
+                                   or
                                ($^O eq 'MSWin32' and
                                 $Config{cc} eq 'cl' and
                                 $Config{ccversion} =~ /^(\d+)/ and