Item12180: Use numeric constant rather than string in Locale function…

…s for compatibility with older Perls git-svn-id: http://svn.foswiki.org/trunk@16431 0b4bb1d4-4e5a-0410-9cc4-b2b747904278
foswiki · Jan 21, 2013 · 7c3413b · 7c3413b
1 parent 1811c9c
commit 7c3413b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/core/lib/Foswiki/Configure/Pluggables/LANGUAGES.pm b/core/lib/Foswiki/Configure/Pluggables/LANGUAGES.pm
@@ -46,8 +46,8 @@ sub new {
         my $label;
         if ( $lang =~ /^(\w+)-(\w+)$/ ) {
             my ( $lname, $cname ) = (
-                ( code2language( $1, 'alpha-2' ) || '' ),
-                ( code2country( $2, 'alpha-2' ) || '' )
+                ( code2language( $1, LOCALE_CODE_ALPHA_2 ) || '' ),
+                ( code2country( $2, LOCALE_CODE_ALPHA_2 ) || '' )
             );
             if ( $lname && $cname ) {
                 $label = "$lname ($cname)";