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 44e88f4..6314aca 100644 (file)
--- a/lib/locale.pm
+++ b/lib/locale.pm
@@ -25,12 +25,14 @@ locales.
 
 =cut
 
+$locale::hint_bits = 0x800;
+
 sub import {
-    $^H |= 0x800;
+    $^H |= $locale::hint_bits;
 }
 
 sub unimport {
-    $^H &= ~0x800;
+    $^H &= ~$locale::hint_bits;
 }
 
 1;