package locale; our $VERSION = '1.01'; $Carp::Internal{
(__PACKAGE__) } = 1; =head1 NAME locale - Perl pragma to use or
avoid POSIX locales for built-in operations =head1 SYNOPSIS @x =
sort @y; # Unicode sorting order { use locale; @x = sort @y; #
Locale-defined sorting order } @x = sort @y; # Unicode sorting
order again =head1 DESCRIPTION This pragma tells the compiler to
enable (or disable) the use of POSIX locales for built-in
operations (for example, LC_CTYPE for regular expressions,
LC_COLLATE for string comparison, and LC_NUMERIC for number
formatting). Each "use locale" or "no locale" affects statements
to the end of the enclosing BLOCK. Starting in Perl 5.16, a
hybrid mode for this pragma is available, use locale
':not_characters'; which enables only the portions of locales
that don't affect the character set (that is, all except
LC_COLLATE and LC_CTYPE). This is useful when mixing Unicode and
locales, including UTF-8 locales. use locale ':not_characters';
use open ":locale"; # Convert I/O to/from Uni