From df9f684f2811a4e63fb9306c21f76f77c32439d1 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 6 Aug 2004 09:37:27 +0000
Subject: Allow multiple complicate flags in rpmsrate, if they're exactly the
 same.

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 264818fae..a97b2ed3e 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -553,7 +553,7 @@ sub read_rpmsrate {
 		    }
 		    if ($p->rate) {
 			my @m4 = $p->rflags;
-			if (@m3 > 1 || @m4 > 1) {
+			if ((@m3 > 1 || @m4 > 1) && "@m3[1..$#m3]" ne "@m4[1..$#m4]") {
 			    log::l("can't handle complicate flags for packages appearing twice ($_)");
 			    $fatal_error++;
 			}
-- 
cgit v1.2.1