diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-09 18:10:27 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-09 18:10:27 +0000 |
| commit | af6b243fec2ad4d808d3c4c8e4a61d2639d6ef6e (patch) | |
| tree | c20498158d93deaff60e43f08dfc973e749d5c87 /perl-install/share | |
| parent | d8fbd027a875aa8c33e2a50dbea18f9441e262f4 (diff) | |
| download | drakx-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_compssUsers | 4 |
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 "$_" |