diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2000-12-30 23:27:10 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-30 17:14:19 +0000 |
| commit | 1aa99e6b6d14c469ac825dde483d9c9f913a3ee2 (patch) | |
| tree | 76ac8dd0d9473e84a19f6184baa4eddb6337e7b1 /lib | |
| parent | 13e8c8e316d3839d0834fb8b851566b00d81e876 (diff) | |
| download | perl-1aa99e6b6d14c469ac825dde483d9c9f913a3ee2.tar.gz | |
more UTF8 test suites and an UTF8 patch
Message-ID: <3A4D722D.243AFD88@st.rim.or.jp>
Just the patch part for now, and the pragma renamed
as unicode::distinct.
p4raw-id: //depot/perl@8267
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicode/distinct.pm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/lib/unicode/distinct.pm b/lib/unicode/distinct.pm new file mode 100644 index 0000000000..6471ac8d84 --- /dev/null +++ b/lib/unicode/distinct.pm @@ -0,0 +1,35 @@ +package unicode:distinct; + +our $VERSION = '0.01'; + +$unicode::distinct::hint_bits = 0x01000000; + +sub import { + $^H |= $unicode::distinct::hint_bits; +} + +sub unimport { + $^H &= ~$unicode::distinct::hint_bits; +} + +1; +__END__ + +=head1 NAME + +unicode::distinct - Perl pragma to strictly distinguish UTF8 data and non-UTF data. + +=head1 SYNOPSIS + + use unicode::distinct; + no unicode::distinct; + +=head1 DESCRIPTION + + *NOT YET* + +=head1 SEE ALSO + +L<perlunicode>, L<utf8> + +=cut |