From 87fdc238083c75d259c562ec68e6cfdfbc727cdd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 30 Nov 2006 13:30:20 +0000
Subject: perl_checker cleanups

---
 po/get_from_compssusers.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'po/get_from_compssusers.pl')

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;
     };
-};
+}
-- 
cgit v1.2.1