diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-29 03:06:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-29 03:06:22 +0000 |
| commit | aa912d0daeaa6d4d84addfd2fc0ebba11e137edd (patch) | |
| tree | 4c59162be3d838b69b3c709075e83b8bc9d61b7a /perl-install/lang.pm | |
| parent | a519379c3ae2eeb70650b6fd9e608bd285d2eba2 (diff) | |
| download | drakx-backup-do-not-use-aa912d0daeaa6d4d84addfd2fc0ebba11e137edd.tar drakx-backup-do-not-use-aa912d0daeaa6d4d84addfd2fc0ebba11e137edd.tar.gz drakx-backup-do-not-use-aa912d0daeaa6d4d84addfd2fc0ebba11e137edd.tar.bz2 drakx-backup-do-not-use-aa912d0daeaa6d4d84addfd2fc0ebba11e137edd.tar.xz drakx-backup-do-not-use-aa912d0daeaa6d4d84addfd2fc0ebba11e137edd.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index eb39c2644..991eb1c73 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -8,7 +8,6 @@ use strict; #-###################################################################################### use common qw(:file); use commands; -use install_any; use log; #-###################################################################################### @@ -149,7 +148,7 @@ sub set { delete $ENV{LC_ALL}; delete $ENV{LINGUAS}; } - install_any::install_cpio("/usr/share/locale", $lang); + commands::install_cpio("/usr/share/locale", $lang); } sub write { @@ -187,7 +186,11 @@ sub load_po($) { $s .= "package po::I18N;\n"; $s .= "\%$lang = ("; - 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"); + } local *F; open F, $f or return; foreach (<F>) { /^msgstr/ and $state = 1; |