diff options
| author | Thomas Dorner <Thomas.Dorner@start.de> | 1998-09-29 14:29:36 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 14:49:46 +0000 |
| commit | a1a0e61e30ae0c76c1d9cbf46512c19c0a966791 (patch) | |
| tree | 87df3aae4267240a5d481ebb6ffe2eb12fe14667 /t/op/subst.t | |
| parent | 5b7e2fe55885acf170d7496132b9ef976ea5c02b (diff) | |
| download | perl-a1a0e61e30ae0c76c1d9cbf46512c19c0a966791.tar.gz | |
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
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 8 |
1 files changed, 6 insertions, 2 deletions
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. |