perl_checker cleanups

1 files changed, 2 insertions, 2 deletions

diff --git a/po/get_from_compssusers.pl b/po/get_from_compssusers.pl
index a135e2f0..ad4d0d64 100755
--- a/po/get_from_compssusers.pl
+++ b/po/get_from_compssusers.pl
@@ -35,7 +35,7 @@ our $current;
 our $entry;
 foreach my $line (cat_($drakxfile, $libdrakxfile)) {
 #foreach my $line (cat_($drakxfile)) {
-    $line =~ m|^\Q#: share/compssUsers.pl:| || ($line =~ m|^msgid "([^"]+)"| && member($1, @miss)) and do {
+    $line =~ m|^\Q#: share/compssUsers.pl:| || $line =~ m|^msgid "([^"]+)"| && member($1, @miss) and do {
 	$current = 'inside';
         $entry = "# DO NOT BOTHER TO MODIFY HERE, BUT IN DRAKX PO\n";
         $line =~ m|^#:| or $entry .= "#: share/compssUsers.pl:999\n";
@@ -46,4 +46,4 @@ foreach my $line (cat_($drakxfile, $libdrakxfile)) {
 	$current = 'outside';
         print $entry;
     };
-};
+}