diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-19 05:02:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-19 05:02:22 +0000 |
| commit | 8b571b322f732f3a9cb04d136f3e855372416ec3 (patch) | |
| tree | b2cb4706262183123b1fe75bd18af98a5822d789 /t/op/pack.t | |
| parent | 06f6df1768f7810ef4b2d5d7821dcccb9c7bf9e4 (diff) | |
| download | perl-8b571b322f732f3a9cb04d136f3e855372416ec3.tar.gz | |
MPE/iX gets serious indigestion on w-packed infinities.
p4raw-id: //depot/perl@19816
Diffstat (limited to 't/op/pack.t')
| -rwxr-xr-x | t/op/pack.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 53f44c1179..31e7b34d29 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -183,6 +183,9 @@ sub list_eq ($$) { skip "-- the IEEE infinity model is unavailable in this configuration." if (($^O eq 'VMS') && !defined($Config{useieee})); + skip "-- MPE/iX has serious fp indigestionf on w-packed infinities" + if (($^O eq 'mpeix')); + my $inf = eval '2**10000'; skip "Couldn't generate infinity - got error '$@'" |