From a4e14fec987246dde7e9f757a9ae9e1834080d33 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Nov 2002 23:40:08 +0000
Subject: make perl_checker happy

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 6f48312f1..a5e9b119b 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -474,7 +474,7 @@ sub read_rpmsrate {
                   (?:\s+|$)
                  )(.*)/x) { #@")) {
 	    ($t, $flag, $data) = ($1,$2,$3);
-	    while ($flag =~ s,^\s*(("[^"]*"|[^"\s]*)*)\s+,$1,) { }
+	    while ($flag =~ s,^\s*(("[^"]*"|[^"\s]*)*)\s+,$1,) {}
 	    my $ok = 0;
 	    $flag = join('||', grep { 
 		if (my ($inv, $p) = /^(!)?HW"(.*)"/) {
-- 
cgit v1.2.1