home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / perl / 5.8.8 / locale.pm < prev    next >
Encoding:
Perl POD Document  |  2006-07-07  |  168 b   |  16 lines
  1. package locale;
  2.  
  3. our $VERSION = '1.00';
  4.  
  5. $locale::hint_bits = 0x4;
  6.  
  7. sub import {
  8.     $^H |= $locale::hint_bits;
  9. }
  10.  
  11. sub unimport {
  12.     $^H &= ~$locale::hint_bits;
  13. }
  14.  
  15. 1;
  16.