summaryrefslogtreecommitdiff
path: root/lib/utf8.pm
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-04 21:55:03 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-04 21:55:03 +0000
commitd5448623582779336009dd8bafd91e2a4ca7c599 (patch)
tree8c44a139ca3d1e950415b5229fd41ee183f96f20 /lib/utf8.pm
parentc0961f019733ac906a65ac3bd8f2f21194179c1e (diff)
downloadperl-d5448623582779336009dd8bafd91e2a4ca7c599.tar.gz
make hints available via globals in the respective pragmas to
avoid duplicating the constants everywhere p4raw-id: //depot/perl@5527
Diffstat (limited to 'lib/utf8.pm')
-rw-r--r--lib/utf8.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/utf8.pm b/lib/utf8.pm
index 3098fe21bd..c362a1c516 100644
--- a/lib/utf8.pm
+++ b/lib/utf8.pm
@@ -1,12 +1,14 @@
package utf8;
+$utf8::hint_bits = 0x00800000;
+
sub import {
- $^H |= 0x00800000;
+ $^H |= $utf8::hint_bits;
$enc{caller()} = $_[1] if $_[1];
}
sub unimport {
- $^H &= ~0x00800000;
+ $^H &= ~$utf8::hint_bits;
}
sub AUTOLOAD {