diff options
| -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 "$_" |