aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xRpmdrake/pkg.pm25
1 files changed, 2 insertions, 23 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index cbf8b8e5..5cfa59eb 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -251,7 +251,6 @@ sub open_urpmi_db() {
our $probe_only_for_updates;
sub get_pkgs {
my ($opts) = @_;
- my %update_descr;
@update_medias = ();
my $w = $::main_window;
@@ -267,29 +266,9 @@ sub get_pkgs {
Rpmdrake::gurpm::label(N("Reading updates description"));
Rpmdrake::gurpm::progress(0.05);
- my ($cur, $section);
+
#- parse the description file
- foreach my $medium (@update_medias) {
- foreach (cat_(urpm::media::statedir_descriptions($urpm, $medium))) {
- /^%package +(.+)/ and do {
- my @pkg_list = split /\s+/, $1;
- exists $cur->{importance} && $cur->{importance} !~ /^(?:security|bugfix)\z/
- and $cur->{importance} = 'normal';
- $update_descr{$_} = $cur foreach @{$cur->{pkgs} || []};
- $cur = { pkgs => \@pkg_list, medium => $medium->{name} };
- $section = 'pkg';
- next;
- };
- /^%(pre|description)/ and do { $section = $1; next };
- /^Updated?: +(.+)/ && $section eq 'pkg'
- and do { $cur->{update} = $1; next };
- /^Importance: +(.+)/ && $section eq 'pkg'
- and do { $cur->{importance} = $1; next };
- /^(ID|URL): +(.+)/ && $section eq 'pkg'
- and do { $cur->{$1} = $2; next };
- $section =~ /^(pre|description)\z/ and $cur->{$1} .= $_;
- }
- }
+ my %update_descr = urpm::get_updates_description($urpm, @update_medias);
my $_unused = N("Please wait, finding available packages...");