[Po4a-commits] "po4a/lib/Locale/Po4a Common.pm,1.15,1.16"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv11059/lib/Locale/Po4a

Modified Files:
	Common.pm 
Log Message:
In perl 5.10, POSIX.pm and Locale::gettext export LC_CTYPE. As we do not
use all of POSIX, it's easier to require it and explicitly use what is
required in POSIX.


Index: Common.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Common.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- Common.pm	14 Feb 2007 21:14:38 -0000	1.15
+++ Common.pm	13 Jan 2008 15:37:17 -0000	1.16
@@ -192,8 +192,8 @@
 BEGIN {
     if (eval { require Locale::gettext }) {
        import Locale::gettext;
-       use POSIX;
-       setlocale(LC_MESSAGES, '');
+       require POSIX;
+       POSIX::setlocale(&POSIX::LC_MESSAGES, '');
     } else {
        eval '
            sub bindtextdomain($$) { }