diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 1999-11-10 06:34:36 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 16:53:00 +0000 |
| commit | ee50adbe6978769b1ad873bd2be52593b054ff83 (patch) | |
| tree | 8dc460f5d97a313200ebfe6ae0647d7fdd227aa6 /t/pragma | |
| parent | 8bc9d5905854a266b70e2103e09a997741ac5d52 (diff) | |
| download | perl-ee50adbe6978769b1ad873bd2be52593b054ff83.tar.gz | |
was Re: [ID 19991102.003] perl on os390
To: gsar@activestate.com, perl-mvs@perl.org, perlbug@perl.com
Message-Id: <199911102234.OAA01018@brio.forte.com>
p4raw-id: //depot/cfgperl@4562
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 8 | ||||
| -rwxr-xr-x | t/pragma/overload.t | 7 |
2 files changed, 14 insertions, 1 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index c453c47bd1..76426787ca 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -286,6 +286,11 @@ Turkish:tr:tr:9 turkish8 Yiddish:::1 15 EOF +if ($^O eq 'os390') { + $locales =~ s/Svenska Swedish:sv:fi se:1 15\n//; + $locales =~ s/Thai:th:th:11 tis620\n//; +} + sub in_utf8 () { $^H & 0x08 } if (in_utf8) { @@ -323,6 +328,9 @@ sub decode_encodings { push @enc, $_; } } + if ($^O eq 'os390') { + push @enc, qw(IBM-037 IBM-819 IBM-1047); + } return @enc; } diff --git a/t/pragma/overload.t b/t/pragma/overload.t index f673dce028..f9a9c59c87 100755 --- a/t/pragma/overload.t +++ b/t/pragma/overload.t @@ -759,7 +759,12 @@ else { }, 'deref'; # Hash: my @cont = sort %$deref; - test "@cont", '23 5 fake foo'; # 178 + if ("\t" eq "\011") { # ascii + test "@cont", '23 5 fake foo'; # 178 + } + else { # ebcdic alpha-numeric sort order + test "@cont", 'fake foo 23 5'; # 178 + } my @keys = sort keys %$deref; test "@keys", 'fake foo'; # 179 my @val = sort values %$deref; |