diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-10-13 08:59:56 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-14 00:46:10 +0000 |
| commit | 663b9db3c907585f76ccce65fc338234c3508a54 (patch) | |
| tree | 33c3528b00ec0218a7cac3c487b4b1bd1823f547 /lib/utf8.pm | |
| parent | c03358ae95504d9be11f5038167b9af91264b3a8 (diff) | |
| download | perl-663b9db3c907585f76ccce65fc338234c3508a54.tar.gz | |
RFC: a (temporary?) way around utf8.pm for EBCDIC
Message-ID: <Pine.OSF.4.10.10010131548260.133963-100000@aspara.forte.com>
p4raw-id: //depot/perl@7228
Diffstat (limited to 'lib/utf8.pm')
| -rw-r--r-- | lib/utf8.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/utf8.pm b/lib/utf8.pm index 35be28caa7..6d6c0eb503 100644 --- a/lib/utf8.pm +++ b/lib/utf8.pm @@ -1,5 +1,7 @@ package utf8; +if (ord('A') != 193) { # make things more pragmatic for EBCDIC folk + $utf8::hint_bits = 0x00800000; sub import { @@ -17,6 +19,8 @@ sub AUTOLOAD { Carp::croak("Undefined subroutine $AUTOLOAD called"); } +} + 1; __END__ @@ -45,7 +49,9 @@ in future we would like to standardize on the UTF-8 encoding for source text. Until UTF-8 becomes the default format for source text, this pragma should be used to recognize UTF-8 in the source. When UTF-8 becomes the standard source format, this pragma will -effectively become a no-op. +effectively become a no-op. This pragma already is a no-op on +EBCDIC platforms (where it is alright to code perl in EBCDIC +rather than UTF-8). Enabling the C<utf8> pragma has the following effects: |