package locale;
+our $VERSION = '1.00';
+
=head1 NAME
locale - Perl pragma to use and avoid POSIX locales for built-in operations
=cut
+$locale::hint_bits = 0x4;
+
sub import {
- $^H |= 0x800;
+ $^H |= $locale::hint_bits;
}
sub unimport {
- $^H &= ~0x800;
+ $^H &= ~$locale::hint_bits;
}
1;