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 | |
23 | =cut |
24 | |
25 | sub import { |
26 | $^H |= 0x800; |
27 | } |
28 | |
29 | sub unimport { |
30 | $^H &= ~0x800; |
31 | } |
32 | |
33 | 1; |