lib/locale.pm

   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 See L<perllocale> for more detailed information on how Perl supports
  24 locales.
  25
  26 =cut
  27
  28 $locale::hint_bits = 0x800;
  29
  30 sub import {
  31     $^H |= $locale::hint_bits;
  32 }
  33
  34 sub unimport {
  35     $^H &= ~$locale::hint_bits;
  36 }
  37
  38 1;