From d5448623582779336009dd8bafd91e2a4ca7c599 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 4 Mar 2000 21:55:03 +0000
Subject: make hints available via globals in the respective pragmas to avoid
 duplicating the constants everywhere

p4raw-id: //depot/perl@5527
---
 lib/locale.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib/locale.pm')

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;
-- 
cgit v1.2.1