This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[ID 20001207.003] [PATCH] t/base/term.t causes abort if Config.pm not built
[perl5.git] / t / base / term.t
index e96313d..49df11f 100755 (executable)
@@ -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