diff options
| author | Nicolas Vigier <boklm@mageia.org> | 2013-04-14 13:46:12 +0000 |
|---|---|---|
| committer | Nicolas Vigier <boklm@mageia.org> | 2013-04-14 13:46:12 +0000 |
| commit | 1be510f9529cb082f802408b472a77d074b394c0 (patch) | |
| tree | b175f9d5fcb107576dabc768e7bd04d4a3e491a0 /zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0009.obj | |
| parent | fa5098cf210b23ab4f419913e28af7b1b07dafb2 (diff) | |
| download | archives-master.tar archives-master.tar.gz archives-master.tar.bz2 archives-master.tar.xz archives-master.zip | |
Diffstat (limited to 'zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0009.obj')
| -rw-r--r-- | zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0009.obj | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0009.obj b/zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0009.obj new file mode 100644 index 000000000..7845b5ea2 --- /dev/null +++ b/zarb-ml/mageia-dev/attachments/20110915/e36848de/attachment-0009.obj @@ -0,0 +1,21 @@ +(grep_regular_media) factorize a grep for next commit + +--- /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 +@@ -125,10 +125,14 @@ + return $res; + } + ++sub grep_regular_media { ++ my ($urpm) = @_; ++ grep { $_->{name} !~ /debug|sources/i } @{$urpm->{media}}; ++} ++ + sub get_backport_media { + my ($urpm) = @_; +- grep { $_->{name} =~ /backport/i && +- $_->{name} !~ /debug|sources/i } @{$urpm->{media}}; ++ grep { $_->{name} =~ /backport/i } grep_regular_media($urpm); + } + + sub get_inactive_backport_media {
\ No newline at end of file |