make hints available via globals in the respective pragmas to

avoid duplicating the constants everywhere

p4raw-id: //depot/perl@5527

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/locale.pm b/lib/locale.pm
index 44e88f48c6..6314aca59e 100644
--- 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;