blob: fedcc13d72db6aa1bc0a9e8506fd5f7fa26a9e36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(get_release_media,get_active_release_media) enable to list enabled */release media
--- /usr/lib/perl5/vendor_perl/5.12.3/Rpmdrake/open_db.pm.tv8 2011-09-15 13:21:31.996304467 +0000
+++ /usr/lib/perl5/vendor_perl/5.12.3/Rpmdrake/open_db.pm 2011-09-15 13:24:12.932431234 +0000
@@ -136,6 +140,16 @@
map { $_->{name} } grep { $_->{ignore} } get_backport_media($urpm);
}
+sub get_release_media {
+ my ($urpm) = @_;
+ grep { $_->{name} =~ /release/i } grep_regular_media($urpm);
+}
+
+sub get_active_release_media {
+ my ($urpm) = @_;
+ map { $_->{name} } grep { !$_->{ignore} } get_backport_media($urpm);
+}
+
sub get_update_medias {
my ($urpm) = @_;
if (is_it_a_devel_distro()) {
|
