diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-11-14 09:05:11 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-15 02:55:26 +0000 |
| commit | 408096566aeff5aedba3c7d2cd4c4d58f55af2bd (patch) | |
| tree | 33afcfdfa46bc434a774e7df69a525cf2521cd5a /t/pragma | |
| parent | 7bf1b6bbb95d87030998c89eb72d5f6ca8be6937 (diff) | |
| download | perl-408096566aeff5aedba3c7d2cd4c4d58f55af2bd.tar.gz | |
EBCDIC tweaks.
Subject: [PATCH: perl@7674 ++] fixes for warnings and regmesg (reprise)
Message-ID: <Pine.OSF.4.10.10011141653510.106218-100000@aspara.forte.com>
p4raw-id: //depot/perl@7696
Diffstat (limited to 't/pragma')
| -rw-r--r-- | t/pragma/warn/utf8 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/pragma/warn/utf8 b/t/pragma/warn/utf8 index 012c65529e..8d6d7dbbe2 100644 --- a/t/pragma/warn/utf8 +++ b/t/pragma/warn/utf8 @@ -15,6 +15,12 @@ __END__ # utf8.c [utf8_to_uv] -W +BEGIN { + if (ord('A') == 193) { + print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings."; + exit 0; + } +} use utf8 ; my $a = "snøstorm" ; { |