summaryrefslogtreecommitdiff
path: root/t/base
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1998-08-01 15:03:02 +0300
committerGurusamy Sarathy <gsar@cpan.org>1998-08-02 05:20:12 +0000
commit9d116dd7c895b17badf4ad422ae44da0c4df7bc2 (patch)
tree6e0cd77e3539952c892983238473264f672472b9 /t/base
parente6df7ed16ebd06f5315f3016c00996876580109c (diff)
downloadperl-9d116dd7c895b17badf4ad422ae44da0c4df7bc2.tar.gz
support OE/MVS
Message-Id: <199808010903.MAA09371@alpha.hut.fi> Subject: [PATCH] 5.005_01: OE MVS p4raw-id: //depot/maint-5.005/perl@1697
Diffstat (limited to 't/base')
-rwxr-xr-xt/base/term.t12
1 files changed, 11 insertions, 1 deletions
diff --git a/t/base/term.t b/t/base/term.t
index 782ad397d3..e96313dec5 100755
--- a/t/base/term.t
+++ b/t/base/term.t
@@ -2,12 +2,22 @@
# $RCSfile: term.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:07 $
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = '../lib';
+}
+
+use Config;
+
print "1..7\n";
# check "" interpretation
$x = "\n";
-if ($x eq chr(10)) {print "ok 1\n";} else {print "not ok 1\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";}
+else {print "not ok 1\n";}
# check `` processing