[patch@25305] t/op/arith.t fix for VMS with IEEE float

[John E. Malmberg]

If VMS is configured to use IEEE float, test 145 was not run.

-John
[EMAIL PROTECTED]
Personal Opinion Only

--- t/op/arith.t_25309  Sat Aug  6 12:23:11 2005
+++ t/op/arith.t        Sat Aug 20 23:08:14 2005
@@ -289,18 +289,22 @@
   try $T++, abs($t1000 -1000 * $t) <= 2000;
 }
 
-if ($^O eq 'vos') {
-  print "not ok ", $T++, " # TODO VOS raises SIGFPE instead of producing 
infinity.\n";
-} 
-elsif ($^O eq 'VMS') {
+my $vms_no_ieee;
+if ($^O eq 'VMS') {
   use vars '%Config';
   eval {require Config; import Config};
-  print $T++, " # SKIP -- the IEEE infinity model is unavailable in this 
configuration.\n"
-    unless defined($Config{useieee});
-} 
+  $vms_no_ieee = 1 unless defined($Config{useieee});
+}
+
+if ($^O eq 'vos') {
+  print "not ok ", $T++, " # TODO VOS raises SIGFPE instead of producing 
infinity.\n";
+}
+elsif ($vms_no_ieee) {
+ print $T++, " # SKIP -- the IEEE infinity model is unavailable in this 
configuration.\n"
+}
 elsif ($^O eq 'ultrix') {
   print "not ok ", $T++, " # TODO Ultrix enters deep nirvana instead of 
producing infinity.\n";
-} 
+}
 else {
   # The computation of $v should overflow and produce "infinity"
   # on any system whose max exponent is less than 10**1506.