summaryrefslogtreecommitdiff
path: root/t/op/numconvert.t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-05-12 10:36:02 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-05-12 10:36:02 +0000
commit45c0de28763808112fd2f46ea311b6bb0c6050b3 (patch)
treedb4c1322c63791429e59356ffdf46c9d8fde321d /t/op/numconvert.t
parentaa854799af20b80973df4e295167b2fda1fc7a9c (diff)
downloadperl-45c0de28763808112fd2f46ea311b6bb0c6050b3.tar.gz
more testsuite smarts (many of them courtesy Ilya)
p4raw-id: //depot/perl@3399
Diffstat (limited to 't/op/numconvert.t')
-rwxr-xr-xt/op/numconvert.t10
1 files changed, 1 insertions, 9 deletions
diff --git a/t/op/numconvert.t b/t/op/numconvert.t
index 405f721d20..f71fd6c141 100755
--- a/t/op/numconvert.t
+++ b/t/op/numconvert.t
@@ -42,15 +42,7 @@ BEGIN {
use strict 'vars';
-my $max_chain = $ENV{PERL_TEST_NUMCONVERTS};
-unless (defined $max_chain) {
- my $is_debug;
- eval <<'EOE';
- use Config;
- $is_debug = 1 if $Config{ccflags} =~ /-DDEBUGGING\b/;
-EOE
- $max_chain = $is_debug ? 3 : 2;
-}
+my $max_chain = $ENV{PERL_TEST_NUMCONVERTS} || 2;
# Bulk out if unsigned type is hopelessly wrong:
my $max_uv1 = ~0;