From 42ded0f5b50145273e019818e4e3eb002667aff8 Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Wed, 15 Dec 1999 02:51:53 +0000 Subject: small fix ( "..../$lang.po " -> ".../$lang.po" ) --- perl-install/lang.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index ada998bd8..de0f48509 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -18,7 +18,7 @@ use log; #- languages, carefully choosen) my %languages = ( 'en' => [ 'English (US)', undef, 'en', 'en_US:en' ], - 'en' => [ 'English (UK)', 'iso-8859-1', 'en', 'en_GB:en' ], +'en_GB' => [ 'English (UK)', 'iso-8859-1', 'en', 'en_GB:en' ], 'af' => [ 'Afrikaans', 'iso-8859-1', 'af', 'af:en_ZA' ], #-'ar' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar' ], 'bg' => [ 'Bulgarian', 'cp1251', 'bg', 'bg' ], @@ -206,12 +206,11 @@ sub load_po($) { my ($lang) = @_; my ($s, $from, $to, $state, $fuzzy); - $s .= "package po::I18N;\n"; $s .= "\%$lang = ("; #- $lang = substr($lang, 0, 2); - my $f; -e ($f = "$_/po/$lang.po ") and last foreach @INC; + my $f; -e ($f = "$_/po/$lang.po") and last foreach @INC; unless (-e $f) { -e ($f = "$_") and last foreach @INC; $f = commands::install_cpio("$f/po", "$lang.po"); -- cgit v1.2.1