From f902492a01c974283c9c800ddbd5de651c474c25 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 27 Sep 1999 20:52:11 +0000
Subject: no_comment

---
 perl-install/lang.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 8d7465729..514d19594 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -174,7 +174,7 @@ sub write {
 
 sub load_po($) {
     my ($lang) = @_;
-    my ($s, $from, $to, $state);
+    my ($s, $from, $to, $state, $fuzzy);
 
     $s .= "package po::I18N;\n";
     $s .= "\%$lang = (";
@@ -183,7 +183,7 @@ sub load_po($) {
     local *F; open F, $f or return;
     foreach (<F>) {
 	/^msgstr/ and $state = 1;
-	/^msgid/ and $state = 2;
+	/^msgid/  && !$fuzzy and $state = 2;
 
 	if (/^(#|$)/ && $state != 3) {
 	    $state = 3;
@@ -192,6 +192,8 @@ sub load_po($) {
 	}
 	$to .= (/"(.*)"/)[0] if $state == 1;
 	$from .= (/"(.*)"/)[0] if $state == 2;
+
+	$fuzzy = /^#, fuzzy/;
     }
     $s .= ");";
     no strict "vars";
-- 
cgit v1.2.1