X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fpack.t;h=53f44c117975e52d17d87677c4cfbf9ff759ace9;hb=71f93cb90a7a9a642b3934238bdb85ce8183854f;hp=0c7d51d73a042bca8fbd31bcd6f2bd8e374c3fa6;hpb=db37a92e82b89bddd13b884e84f66b3fa0b4de08;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/pack.t b/t/op/pack.t
index 0c7d51d..53f44c1 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -179,6 +179,10 @@ sub list_eq ($$) {
 
  SKIP: {
     # Is this a stupid thing to do on VMS, VOS and other unusual platforms?
+
+    skip "-- the IEEE infinity model is unavailable in this configuration."
+       if (($^O eq 'VMS') && !defined($Config{useieee}));
+
     my $inf = eval '2**10000';
 
     skip "Couldn't generate infinity - got error '$@'"
@@ -193,6 +197,10 @@ sub list_eq ($$) {
   }
 
  SKIP: {
+
+    skip "-- the full range of an IEEE double may not be available in this configuration."
+       if (($^O eq 'VMS') && !defined($Config{useieee}));
+
     # This should be about the biggest thing possible on an IEEE double
     my $big = eval '2**1023';