diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-08-15 17:52:17 -0400 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2016-08-17 22:13:39 -0400 |
commit | dd1645173d8209e05c419b0f3edc9b1c0f9643a8 (patch) | |
tree | 49aa21d39e8b3d01efd0f984b3d89c20c87c10c0 | |
parent | de1a8b537348227e83c8efd15d3cb36d9ac646f5 (diff) | |
download | perl-dd1645173d8209e05c419b0f3edc9b1c0f9643a8.tar.gz |
Do not deploy the fractional matching without fractions
-rw-r--r-- | t/op/sprintf2.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t index 016a2d68cb..568d4b5c1b 100644 --- a/t/op/sprintf2.t +++ b/t/op/sprintf2.t @@ -629,7 +629,7 @@ for my $t (@hexfloat) { ok($ok, "'$format' '$arg' -> '$result' cf '$expected'"); next; } - unless ($ok) { + if (!$ok && $result =~ /\./ && $expected =~ /\./) { # It seems that there can be difference in the last bits: # [perl #122578] # got "0x1.5bf0a8b14576ap+1" |