From b25e12d28c4e637aa117d19b5b4f62a19911f9e2 Mon Sep 17 00:00:00 2001 From: Andy Dougherty Date: Thu, 7 Dec 2000 05:50:47 -0500 Subject: [ID 20001207.003] [PATCH] t/base/term.t causes abort if Config.pm not built Message-Id: p4raw-id: //depot/perl@8035 --- t/base/term.t | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 't/base') diff --git a/t/base/term.t b/t/base/term.t index e96313dec5..49df11fa31 100755 --- a/t/base/term.t +++ b/t/base/term.t @@ -4,19 +4,16 @@ BEGIN { chdir 't' if -d 't'; - @INC = '../lib'; } -use Config; - print "1..7\n"; # check "" interpretation $x = "\n"; # 10 is ASCII/Iso Latin, 21 is EBCDIC. -if ($x eq chr(10) || - ($Config{ebcdic} eq 'define' && $x eq chr(21))) {print "ok 1\n";} +if ($x eq chr(10)) { print "ok 1\n";} +elsif ($x eq chr(21)) { print "ok 1 # EBCDIC\n"; } else {print "not ok 1\n";} # check `` processing -- cgit v1.2.1