summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-11-09 18:13:02 +0000
committerFrancois Pons <fpons@mandriva.com>1999-11-09 18:13:02 +0000
commiteb53575902c0282896e92d7d6d76a89bca420e5a (patch)
tree687b110952d0dbed96b1aaaf26fefdfaaf048726 /perl-install/lang.pm
parentece0a28a0aeea4c28976b3c842cb53aa6bc5fb39 (diff)
downloaddrakx-eb53575902c0282896e92d7d6d76a89bca420e5a.tar
drakx-eb53575902c0282896e92d7d6d76a89bca420e5a.tar.gz
drakx-eb53575902c0282896e92d7d6d76a89bca420e5a.tar.bz2
drakx-eb53575902c0282896e92d7d6d76a89bca420e5a.tar.xz
drakx-eb53575902c0282896e92d7d6d76a89bca420e5a.zip
*** empty log message ***
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 445a134c5..aa2bf1e3c 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -178,7 +178,7 @@ sub load_po($) {
-e ($f = "$_") and last foreach @INC;
$f = commands::install_cpio("$f/po", "$lang.po");
}
- local *F; open F, $f or return;
+ local *F; open F, $f; #- not returning here help avoiding reading the same multiple times.
foreach (<F>) {
/^msgstr/ and $state = 1;
/^msgid/ && !$fuzzy and $state = 2;