Lines Matching defs:locale

1 package locale;
13 locale - Perl pragma to use or avoid POSIX locales for built-in operations
19      use locale;
25  # Parameters to the pragma are to work around deficiencies in locale
28  use locale qw(:ctype :collate);    # Only use the locale for character
32  use locale ':not_characters';      # Use the locale for everything but
36  use locale ':!numeric';            # Use the locale for everything but
38  use locale ':not_numeric';         # Same
40  no locale;             # Turn off locale handling for the remainder of
48 formatting).  Each C<use locale> or C<no locale>
56 # having to look at %^H for the normal case of a plain 'use locale' without an
59 $locale::hint_bits = 0x4;
60 $locale::partial_hint_bits = 0x10;  # If pragma has an argument
67     shift;  # should be 'locale'; not checked
69     $^H{locale} = 0 unless defined $^H{locale};
71         $^H |= $locale::hint_bits;
82                 Carp::croak("Unknown parameter '$_[$i]' to 'use locale'");
88                     Carp::croak("Only one argument to 'use locale' allowed"
97                     $^H{locale} |= (1 << 0);
109             $^H |= $locale::partial_hint_bits;
112             $^H &= ~$locale::hint_bits;
124                                 # always be the C locale?
129                     Carp::croak("Cannot have ':$arg' parameter to 'use locale'"
137                 $^H{locale} |= 1 << ($bit + 1);
145     $^H &= ~($locale::hint_bits | $locale::partial_hint_bits);
146     $^H{locale} = 0;