From 8da2d23733595367fad869e5fbc6c9a87041879b Mon Sep 17 00:00:00 2001
From: Siep Kroonenberg <siepo@cybercomm.nl>
Date: Thu, 17 Feb 2011 16:52:23 +0000
Subject: New tlperl part VIII

git-svn-id: svn://tug.org/texlive/trunk@21430 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/tlperl/lib/locale.pm | 40 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 Master/tlpkg/tlperl/lib/locale.pm

(limited to 'Master/tlpkg/tlperl/lib/locale.pm')

diff --git a/Master/tlpkg/tlperl/lib/locale.pm b/Master/tlpkg/tlperl/lib/locale.pm
new file mode 100644
index 00000000000..a51e2b1c097
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/locale.pm
@@ -0,0 +1,40 @@
+package locale;
+
+our $VERSION = '1.00';
+
+=head1 NAME
+
+locale - Perl pragma to use and avoid POSIX locales for built-in operations
+
+=head1 SYNOPSIS
+
+    @x = sort @y;	# ASCII sorting order
+    {
+        use locale;
+        @x = sort @y;   # Locale-defined sorting order
+    }
+    @x = sort @y;	# ASCII sorting order again
+
+=head1 DESCRIPTION
+
+This pragma tells the compiler to enable (or disable) the use of POSIX
+locales for built-in operations (LC_CTYPE for regular expressions, and
+LC_COLLATE for string comparison).  Each "use locale" or "no locale"
+affects statements to the end of the enclosing BLOCK.
+
+See L<perllocale> for more detailed information on how Perl supports
+locales.
+
+=cut
+
+$locale::hint_bits = 0x4;
+
+sub import {
+    $^H |= $locale::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$locale::hint_bits;
+}
+
+1;
-- 
cgit v1.2.3