summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/any.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 65a31a54d..a3389580a 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -374,7 +374,11 @@ sub media_screen {
disabled => sub { $medium->{name} eq 'Core Release' },
format => sub { $descriptions{$_[0]} || translate(%descriptions) },
};
- } grep { $_->{name} !~ /Debug|Testing|Sources|Backports/ } @{$urpm->{media}},
+ } grep {
+ my ($distribconf, $medium_path) = @{$_->{mediacfg}};
+ my @media_types = split(':', $distribconf->getvalue($medium_path, 'media_type'));
+ !intersection(\@media_types, [ qw(backports debug source testing) ]);
+ } @{$urpm->{media}},
]);