diff options
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | urpm/media.pm | 21 |
2 files changed, 23 insertions, 0 deletions
@@ -3,6 +3,8 @@ instead of forcing users to click in order to continue transactions (mga#6086) o do not popup errors at end in auto mode +- library (mga#8368, #8379 & #9758): + o enable to see if nonfree/tainted packages are installed Version 7.26 - 2 May 2013, by Thierry Vignaud diff --git a/urpm/media.pm b/urpm/media.pm index 6148d680..81da468d 100644 --- a/urpm/media.pm +++ b/urpm/media.pm @@ -755,6 +755,27 @@ sub _auto_update_media { } } + +=item needed_extra_media($urpm) + +Return 2 booleans telling whether nonfree & tainted packages are installed respectively. + +=cut + +sub needed_extra_media { + my ($urpm) = @_; + my $db = urpm::db_open_or_die_($urpm); + my ($nonfree, $tainted); + $db->traverse(sub { + my ($pkg) = @_; + return if $nonfree && $tainted; + my $rel = $pkg->release; + $nonfree ||= $rel =~ /nonfree$/; + $tainted ||= $rel =~ /tainted$/; + }); + ($nonfree, $tainted); +} + sub non_ignored_media { my ($urpm, $b_only_marked_update) = @_; |