From a1a0e61e30ae0c76c1d9cbf46512c19c0a966791 Mon Sep 17 00:00:00 2001 From: Thomas Dorner Date: Tue, 29 Sep 1998 14:29:36 +0100 Subject: POSIX BC2000 port from perl-mvs: Subject: Ported perl 5.005.02 to BS2000 / POSIX Message-ID: <9CE47B416A24D2118BC40000F84009B20B72C5@start.de> p4raw-id: //depot/cfgperl@2009 --- t/op/subst.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 't/op/subst.t') diff --git a/t/op/subst.t b/t/op/subst.t index 3b3bc8d800..70219ab521 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -1,6 +1,10 @@ #!./perl -BEGIN { @INC = ('../lib') } +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib' if -d '../lib'; + require Config; import Config; +} print "1..71\n"; @@ -183,7 +187,7 @@ tr/a-z/A-Z/; print $_ eq 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789' ? "ok 52\n" : "not ok 52\n"; # same as tr/A-Z/a-z/; -if ($^O eq 'os390' or $^O eq 'vmesa') { # EBCDIC. +if ($Config{ebcdic} eq 'define') { # EBCDIC. no utf8; y[\301-\351][\201-\251]; } else { # Ye Olde ASCII. Or something like it. -- cgit v1.2.1