From 0be093c9cd73a6fc755839b1072012653fad7065 Mon Sep 17 00:00:00 2001 From: Lupe Christoph Date: Thu, 24 Feb 2000 12:54:50 +0100 Subject: [PATCH] Better skip message for the test; one of the two problems in Subject: [ID 20000224.003] Not OK: perl v5.5.660 on i86pc-solaris 2.7 Message-Id: <200002241054.LAA06808@lupe-christoph.de> p4raw-id: //depot/perl@6500 --- t/op/numconvert.t | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/t/op/numconvert.t b/t/op/numconvert.t index 8eb9b6e..f3c9867 100755 --- a/t/op/numconvert.t +++ b/t/op/numconvert.t @@ -51,7 +51,13 @@ my $big_iv = do {use integer; $max_uv1 * 16}; # 16 is an arbitrary number here print "# max_uv1 = $max_uv1, max_uv2 = $max_uv2, big_iv = $big_iv\n"; if ($max_uv1 ne $max_uv2 or $big_iv > $max_uv1) { - print "1..0\n# Unsigned arithmetic is not sane\n"; + print "1..0 # skipped: unsigned perl arithmetic is not sane"; + eval { require Config; import Config }; + use vars qw(%Config); + if ($Config{d_quad} eq 'define') { + print " (common in 64-bit platforms)"; + } + print "\n"; exit 0; } -- 2.7.4