I don't think trying to bracket the hires time with lores
[p5sagit/p5-mst-13.2.git] / lib / locale.pm
1 package locale;
2
3 our $VERSION = '1.00';
4
5 =head1 NAME
6
7 locale - Perl pragma to use and avoid POSIX locales for built-in operations
8
9 =head1 SYNOPSIS
10
11     @x = sort @y;       # ASCII sorting order
12     {
13         use locale;
14         @x = sort @y;   # Locale-defined sorting order
15     }
16     @x = sort @y;       # ASCII sorting order again
17
18 =head1 DESCRIPTION
19
20 This pragma tells the compiler to enable (or disable) the use of POSIX
21 locales for built-in operations (LC_CTYPE for regular expressions, and
22 LC_COLLATE for string comparison).  Each "use locale" or "no locale"
23 affects statements to the end of the enclosing BLOCK.
24
25 See L<perllocale> for more detailed information on how Perl supports
26 locales.
27
28 =cut
29
30 $locale::hint_bits = 0x4;
31
32 sub import {
33     $^H |= $locale::hint_bits;
34 }
35
36 sub unimport {
37     $^H &= ~$locale::hint_bits;
38 }
39
40 1;