From af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 9 Sep 2001 18:10:27 +0000
Subject: ensure we're not adding a string already there (otherwise msgmerge
 yells)

---
 perl-install/share/po/i18n_compssUsers | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/share/po')

diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers
index ebdc1b81d..f6dc1ef7d 100644
--- a/perl-install/share/po/i18n_compssUsers
+++ b/perl-install/share/po/i18n_compssUsers
@@ -24,10 +24,14 @@ sub get {
     @l;
 }
 
+my @l = map { if_(/msgid "(.*)"/, $1) } cat_("DrakX.pot");
+my %l; @l{@l} = ();
+
 foreach (uniq(get(''), get('.desktop'))) {
     if ($_) {
         s/"/\"/g;
         s/\n//g;
+	next if exists $l{$_};
         print qq(
 #: ../../share/compssUsers:999
 msgid "$_"
-- 
cgit v1.2.1