X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flocale.pm;h=a51e2b1c097582b4b46fe208bbbc1d8109acaa54;hb=ad91da88822a061453a454578ec2246dd493ffdd;hp=48213ab86cef937579f8e10f2d31bc918b28f4dd;hpb=bbce6d69784bf43b0e69e8d312042d65f258af23;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/locale.pm b/lib/locale.pm
index 48213ab..a51e2b1 100644
--- a/lib/locale.pm
+++ b/lib/locale.pm
@@ -1,5 +1,7 @@
 package locale;
 
+our $VERSION = '1.00';
+
 =head1 NAME
 
 locale - Perl pragma to use and avoid POSIX locales for built-in operations
@@ -20,14 +22,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 = 0x4;
+
 sub import {
-    $^H |= 0x800;
+    $^H |= $locale::hint_bits;
 }
 
 sub unimport {
-    $^H &= ~0x800;
+    $^H &= ~$locale::hint_bits;
 }
 
 1;