more efficient Text::Abbrev (from M.E. O'Neill <oneill@cs.sfu.ca>)

[p5sagit/p5-mst-13.2.git] / lib / locale.pm

diff --git a/lib/locale.pm b/lib/locale.pm
index 48213ab..6314aca 100644 (file)
--- a/lib/locale.pm
+++ b/lib/locale.pm
@@ -20,14 +20,19 @@ locales for built-in operations (LC_CTYPE for regular expressions, and
 LC_COLLATE for string comparison).  Each "use locale" or "no locale"
 affects statements to the end of the enclosing BLOCK.
 
+See L<perllocale> for more detailed information on how Perl supports
+locales.
+
 =cut
 
+$locale::hint_bits = 0x800;
+
 sub import {
-    $^H |= 0x800;
+    $^H |= $locale::hint_bits;
 }
 
 sub unimport {
-    $^H &= ~0x800;
+    $^H &= ~$locale::hint_bits;
 }
 
 1;