diff options
Diffstat (limited to 'po/get_from_compssusers.pl')
| -rwxr-xr-x | po/get_from_compssusers.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/po/get_from_compssusers.pl b/po/get_from_compssusers.pl index 35bfa041..ea350a41 100755 --- a/po/get_from_compssusers.pl +++ b/po/get_from_compssusers.pl @@ -2,12 +2,13 @@ use MDK::Common; -@miss = qw(Development Server); +@miss = (qw(Development Server Workstation), 'Graphical Environment'); foreach my $line (cat_("../../../gi/perl-install/share/po/$ARGV[0]")) { $line =~ m|^\Q#: ../../share/compssUsers:999| || ($line =~ m|^msgid "([^"]+)"| && grep { $_ eq $1 } @miss) and do { $current = 'inside'; print "# DO NOT BOTHER TO MODIFY HERE, BUT IN DRAKX PO\n"; + $line =~ m|^#:| or print "#: ../../share/compssUsers:999\n"; }; $current eq 'inside' and print $line; $line =~ m|^$| and do { |