summaryrefslogtreecommitdiffstats
path: root/perl-install/share
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-09 18:10:27 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-09 18:10:27 +0000
commitaf6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e (patch)
treec20498158d93deaff60e43f08dfc973e749d5c87 /perl-install/share
parentd8fbd027a875aa8c33e2a50dbea18f9441e262f4 (diff)
downloaddrakx-af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e.tar
drakx-af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e.tar.gz
drakx-af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e.tar.bz2
drakx-af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e.tar.xz
drakx-af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e.zip
ensure we're not adding a string already there (otherwise msgmerge yells)
Diffstat (limited to 'perl-install/share')
-rw-r--r--perl-install/share/po/i18n_compssUsers4
1 files changed, 4 insertions, 0 deletions
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 "$_"