diff options
| author | Karl Williamson <khw@cpan.org> | 2022-05-31 17:26:08 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-06-10 06:48:35 -0600 |
| commit | 1aa8e6dd85c09ce7ce928c1ab673fba6e7c739eb (patch) | |
| tree | f3e081b309c932fc4eece03f2ba82f55f7d366be /t/base | |
| parent | ca4a6e05b1b031a6fae109c6799ebbcf01c547d9 (diff) | |
| download | perl-1aa8e6dd85c09ce7ce928c1ab673fba6e7c739eb.tar.gz | |
Remove support for Ultrix
Ultrix has been removed. Ultrix was the native Unix-like operating
system for various Digital Equipment Corporation machines. Its final
release was in 1995.
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/num.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/base/num.t b/t/base/num.t index 2e66bc940e..eaf58dee20 100644 --- a/t/base/num.t +++ b/t/base/num.t @@ -176,13 +176,13 @@ $a = 0.00049999999999999999999999999999999999999; $b = 0.0005000000000000000104; print $a <= $b ? "ok 46\n" : "not ok 46\n"; -if ($^O eq 'ultrix' || $^O eq 'VMS' || +if ($^O eq 'VMS' || (pack("d", 1) =~ /^[\x80\x10]\x40/) # VAX D_FLOAT, G_FLOAT. ) { - # Ultrix enters looong nirvana over this. VMS blows up when configured with - # D_FLOAT (but with G_FLOAT or IEEE works fine). The test should probably - # make the number of 0's a function of NV_DIG, but that's not in Config and - # we probably don't want to suck Config into a base test anyway. + # VMS blows up when configured with D_FLOAT (but with G_FLOAT or IEEE works + # fine). The test should probably make the number of 0's a function of + # NV_DIG, but that's not in Config and we probably don't want to suck Config + # into a base test anyway. print "ok 47 # skipped on $^O\n"; } else { $a = 0.00000000000000000000000000000000000000000000000000000000000000000001; |