Commit | Line | Data |
---|---|---|
bbce6d69 | 1 | package locale; |
2 | ||
3 | =head1 NAME | |
4 | ||
5 | locale - Perl pragma to use and avoid POSIX locales for built-in operations | |
6 | ||
7 | =head1 SYNOPSIS | |
8 | ||
9 | @x = sort @y; # ASCII sorting order | |
10 | { | |
11 | use locale; | |
12 | @x = sort @y; # Locale-defined sorting order | |
13 | } | |
14 | @x = sort @y; # ASCII sorting order again | |
15 | ||
16 | =head1 DESCRIPTION | |
17 | ||
18 | This pragma tells the compiler to enable (or disable) the use of POSIX | |
19 | locales for built-in operations (LC_CTYPE for regular expressions, and | |
20 | LC_COLLATE for string comparison). Each "use locale" or "no locale" | |
21 | affects statements to the end of the enclosing BLOCK. | |
22 | ||
b8bc843f A |
23 | See L<perllocale> for more detailed information on how Perl supports |
24 | locales. | |
25 | ||
bbce6d69 | 26 | =cut |
27 | ||
28 | sub import { | |
29 | $^H |= 0x800; | |
30 | } | |
31 | ||
32 | sub unimport { | |
33 | $^H &= ~0x800; | |
34 | } | |
35 | ||
36 | 1; |