From 3afc68e1bc9cdd740be5036dc83c1c1a18675b08 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 22 May 2013 07:38:15 +0000
Subject: perl_checker cleanups

---
 src-rpm-list | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src-rpm-list')

diff --git a/src-rpm-list b/src-rpm-list
index e5a8bf9..984fe4f 100755
--- a/src-rpm-list
+++ b/src-rpm-list
@@ -25,7 +25,7 @@ my @skip = $skipfile ? chomp_(cat_($skipfile)) : ();
 my @pkgs = grep {
               my $res = 1;
               foreach my $skipre (@skip) {
-                  if ($_ =~ m/^$skipre$/) {
+                  if (m/^$skipre$/) {
 		      $res = 0;
 		      last;
                   }
-- 
cgit v1.2.1