From 85e21d9abb2daf68be31c33dcdbc8874c3cc8fdc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 4 Jan 2000 22:13:57 +0000
Subject: no_comment

---
 perl-install/lang.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install/lang.pm')

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index df8eb6835..15c5436a7 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -268,11 +268,19 @@ sub load_po($) {
     local *F;
     unless (-e $f) {
 	-e ($f = "$_/po/$lang.po.bz2") and last foreach @INC;
-	open F, "bzip2 -dc $f 2>/dev/null |";
+	if (-e $f) {
+	    open F, "bzip2 -dc $f 2>/dev/null |";
+	} else {
+	    -e ($f = "$_/po.cz2") and last foreach @INC;
+	    $f =~ s/\.cz2//;
+	    log::l("loading $lang.po from $f");
+	    open F, "extract_archive $f '' $lang.po 2>/dev/null |";
+	}
     } else {
 	open F, $f; #- not returning here help avoiding reading the same multiple times.
     }
     foreach (<F>) {
+	log::l("load_po: $_");
 	/^msgstr/ and $state = 1;
 	/^msgid/  && !$fuzzy and $state = 2;
 
-- 
cgit v1.2.1