diff options
Diffstat (limited to 'zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0002.obj')
| -rw-r--r-- | zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0002.obj | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0002.obj b/zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0002.obj new file mode 100644 index 000000000..fedcc13d7 --- /dev/null +++ b/zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0002.obj @@ -0,0 +1,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()) {
\ No newline at end of file |