This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a391476
)
Fix t/op/sprintf2.t on VMS
author
Craig A. Berry
<craig.a.berry@gmail.com>
Tue, 8 Dec 2015 08:19:48 +0000
(08:19 +0000)
committer
Steve 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
patch
|
blob
|
blame
|
history
diff --git
a/t/op/sprintf2.t
b/t/op/sprintf2.t
index
03a5d33
..
094595e
100644
(file)
--- a/
t/op/sprintf2.t
+++ b/
t/op/sprintf2.t
@@
-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)