home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 November / PCWorld_2004-11_cd.bin / software / topware / activeperl / ActivePerl-5.8.4.810-MSWin32-x86.exe / ActivePerl-5.8.4.810 / Perl / lib / locale.pm < prev    next >
Text File  |  2004-06-01  |  860b  |  41 lines
  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;
  41.