diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2000-12-07 05:50:47 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-08 03:26:01 +0000 |
| commit | b25e12d28c4e637aa117d19b5b4f62a19911f9e2 (patch) | |
| tree | 2e675b80ded6a606501d3f66e132af8537090934 /t/base | |
| parent | 8e7e0aa837075f75a252df7c9b0b220ac046bca1 (diff) | |
| download | perl-b25e12d28c4e637aa117d19b5b4f62a19911f9e2.tar.gz | |
[ID 20001207.003] [PATCH] t/base/term.t causes abort if Config.pm not built
Message-Id: <Pine.SOL.4.10.10012071049400.7566-100000@maxwell.phys.lafayette.edu>
p4raw-id: //depot/perl@8035
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/term.t | 7 |
1 files changed, 2 insertions, 5 deletions
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 |