diff options
| -rw-r--r-- | urpm.pm | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -233,7 +233,8 @@ sub get_updates_description { @update_medias or @update_medias = grep { !$_->{ignore} && $_->{update} } @{$urpm->{media}}; - foreach (map { cat_utf8(urpm::media::statedir_descriptions($urpm, $_)), '%package dummy' } @update_medias) { + foreach my $medium (@update_medias) { + foreach (cat_utf8(urpm::media::statedir_descriptions($urpm, $medium)), '%package dummy') { /^%package (.+)/ and do { if (exists $cur->{importance} && $cur->{importance} ne "security" && $cur->{importance} ne "bugfix") { $cur->{importance} = 'normal'; @@ -241,6 +242,7 @@ sub get_updates_description { $update_descr{$_} = $cur foreach @{$cur->{pkgs}}; $cur = {}; $cur->{pkgs} = [ split /\s/, $1 ]; + $cur->{medium} = $medium->{name}; $section = 'pkg'; next; }; @@ -251,6 +253,7 @@ sub get_updates_description { $section eq 'pre' and $cur->{pre} .= $_; $section eq 'description' and $cur->{description} .= $_; } + } \%update_descr; } |