From 37cf9c5b6a796ef083550dce4a3cceb15dcfd175 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Sep 2005 15:26:32 +0000
Subject: set META_CLASS"xxx" flag

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 22b0f7843..244a71454 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -842,6 +842,7 @@ sub rpmsrate_always_flags {
     my ($o) = @_;
 
     my $rpmsrate_flags_chosen = {};
+    $rpmsrate_flags_chosen->{qq(META_CLASS"$o->{meta_class}")} = 1;
     $rpmsrate_flags_chosen->{uc($_)} = 1 foreach grep { modules::probe_category("multimedia/$_") } modules::sub_categories('multimedia');
     $rpmsrate_flags_chosen->{uc($_)} = 1 foreach detect_devices::probe_name('Flag');
     $rpmsrate_flags_chosen->{DOCS} = !$o->{excludedocs};
-- 
cgit v1.2.1