diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 13:43:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-10-17 13:43:54 +0000 |
| commit | 092bebab2f702b0ac392b3259fc90294ab403f4b (patch) | |
| tree | 3d5351416db9d4e4aa91afdf7b5202d097fdc6a3 /t/op/subst.t | |
| parent | b56ec34489067f612a4e5d2fecae86c5bbfffd5c (diff) | |
| download | perl-092bebab2f702b0ac392b3259fc90294ab403f4b.tar.gz | |
The VM/ESA port essentials, based on
perl-mvs:
From: Neale Ferguson <neale@VMA.TABNSW.COM.AU>
Subject: Re: Can't find Data/Dumper.pm
Date: Mon, 28 Sep 1998 07:40:49 +1300
Message-ID: <360E86B0.23847AF4@mailbox.tabnsw.com.au>
private email:
From: Neale Ferguson <neale@VMA.TABNSW.COM.AU>
Subject: Re: Perl thread problems in VM/ESA
Date: Thu, 15 Oct 1998 07:18:35 +1300
Message-ID: <3624EAFA.16163A2B@mailbox.tabnsw.com.au>
and private email:
From: Neale Ferguson <NEALE@PUCC.PRINCETON.EDU>
Subject: perl archive
Date: Sun, 11 Oct 1998 19:28:54 EDT
Message-Id: <19981011233112Z67215-26626+1513@outbound.Princeton.EDU>
which gave a pointer to
http://pucc.princeton.edu/~neale/perl.tar
(based on Perl 5.005_51)
p4raw-id: //depot/cfgperl@2006
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index d224165b8f..3b3bc8d800 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -183,7 +183,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') { # An EBCDIC variant. +if ($^O eq 'os390' or $^O eq 'vmesa') { # EBCDIC. no utf8; y[\301-\351][\201-\251]; } else { # Ye Olde ASCII. Or something like it. |