This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix t/op/sprintf2.t on VMS
authorCraig A. Berry <craig.a.berry@gmail.com>
Tue, 8 Dec 2015 08:19:48 +0000 (08:19 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 8 Dec 2015 08:20:38 +0000 (08:20 +0000)
(Passed under harness, but failed under TEST.)

t/op/sprintf2.t

index 03a5d33..094595e 100644 (file)
@@ -665,7 +665,8 @@ for my $t (@hexfloat) {
 
 # double-double long double %a special testing.
 SKIP: {
-    skip("uselongdouble=$Config{uselongdouble} longdblkind=$Config{longdblkind} os=$^O", 6)
+    skip("uselongdouble=" . ($Config{uselongdouble} ? 'define' : 'undef')
+         . " longdblkind=$Config{longdblkind} os=$^O", 6)
         unless ($Config{uselongdouble} &&
                 ($Config{longdblkind} == 5 ||
                  $Config{longdblkind} == 6)