summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-06 09:37:27 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-06 09:37:27 +0000
commitdf9f684f2811a4e63fb9306c21f76f77c32439d1 (patch)
tree63c7f770a95a8b347eb39d5ef57f89d47f3bb581
parentded4cd2749ddc389b47b11cf06102f777d01da3d (diff)
downloaddrakx-df9f684f2811a4e63fb9306c21f76f77c32439d1.tar
drakx-df9f684f2811a4e63fb9306c21f76f77c32439d1.tar.gz
drakx-df9f684f2811a4e63fb9306c21f76f77c32439d1.tar.bz2
drakx-df9f684f2811a4e63fb9306c21f76f77c32439d1.tar.xz
drakx-df9f684f2811a4e63fb9306c21f76f77c32439d1.zip
Allow multiple complicate flags in rpmsrate, if they're exactly the same.
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
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++;
}