From 8291e63b384bbf6d9cc743b86373d08d7dc6bcc6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 3 Sep 2007 10:41:57 +0000
Subject: perl_checker cleanups

---
 rpmdrake | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/rpmdrake b/rpmdrake
index da05035a..fc77e907 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -87,12 +87,12 @@ sub do_search($$$$$$$) {
 		    eval { require MDV::Packdrakeng; $pack = MDV::Packdrakeng->open(archive => $_, quiet => 1) } ? $pack->{toc_f_count} : 0;
 		} @hdlists
 	    );
-	    open my $sf, join(' ','parsehdlist', '--name',
+	    open my $sf, join(' ', 'parsehdlist', '--name',
                            if_($current_search_type eq 'files', '--files'),
                            if_($current_search_type eq 'descriptions', '--description', '--summary'),
                            if_($current_search_type eq 'summaries', '--summary'),
                            map { "'$_'" } @hdlists) . ' |';
-	    my ($pkg, $progresscount, $found);
+	    my ($progresscount, $found);
 	    local $_;
 	    while (<$sf>) {
 		$searchstop and last;
@@ -107,7 +107,7 @@ sub do_search($$$$$$$) {
 		if ($current_search_type eq 'descriptions') {
 		    $key =~ /^summary|description$/ or next;
 		} elsif ($current_search_type eq 'summaries') {
-		    $key =~ /^summary$/ or next;
+		    $key eq 'summary' or next;
 		} else {
 		    $key eq 'files' or next;
 		}
-- 
cgit v1.2.1