diff options
| author | David Mitchell <davem@iabyn.com> | 2017-06-22 12:29:15 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2017-06-22 12:29:15 +0100 |
| commit | f5ac400ef4c98ac6732a79664b11857f46cf2d8b (patch) | |
| tree | dc53e7113692fd10960d12913c12ba27211551f8 /cpan/Scalar-List-Utils/t | |
| parent | 475524d62d5431302c913df3e8492b409284d7cc (diff) | |
| download | perl-f5ac400ef4c98ac6732a79664b11857f46cf2d8b.tar.gz | |
undo a Scalar-List-Utils customisation
.. in preparation for installing new release
Revert "netbsd-vax: also the 1E1000 is toxic (in compiletime)."
This reverts commit d1deb742f98169ce12c103478382902d83f6717a.
Diffstat (limited to 'cpan/Scalar-List-Utils/t')
| -rw-r--r-- | cpan/Scalar-List-Utils/t/uniq.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Scalar-List-Utils/t/uniq.t b/cpan/Scalar-List-Utils/t/uniq.t index 354b2137ac..e47b407f0d 100644 --- a/cpan/Scalar-List-Utils/t/uniq.t +++ b/cpan/Scalar-List-Utils/t/uniq.t @@ -75,7 +75,7 @@ my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/); skip("VAX does not have inf/nan", 1) if $vax_float; # Hard to know for sure what an Inf is going to be. Lets make one -my $Inf = 0 + eval '1E1000'; +my $Inf = 0 + 1E1000; my $NaN; $Inf **= 1000 while ( $NaN = $Inf - $Inf ) == $NaN; |