From d20c1d5001eb5a001dca0ade0668136bea8c1362 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 10 Aug 2007 22:39:52 +0000 Subject: (get_updates_description) reindent --- urpm.pm | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) (limited to 'urpm.pm') diff --git a/urpm.pm b/urpm.pm index 0824eb99..1c4b10e6 100644 --- a/urpm.pm +++ b/urpm.pm @@ -235,23 +235,23 @@ sub get_updates_description { foreach my $medium (@update_medias) { # fix not taking into account the last %package token of each descrptions file: '%package dummy' - foreach (cat_utf8(urpm::media::statedir_descriptions($urpm, $medium)), '%package dummy') { - /^%package +(.+)/ and do { - # fixes not parsing descriptions file when MU adds itself the security source: - if (exists $cur->{importance} && !member($cur->{importance}, qw(security bugfix))) { - $cur->{importance} = 'normal'; - } - $update_descr{$_} = $cur foreach @{$cur->{pkgs} || []}; - $cur = { pkgs => [ split /\s/, $1 ], medium => $medium->{name} }; - $section = 'pkg'; - next; - }; - /^Updated?: +(.+)/ && $section eq 'pkg' and do { $cur->{updated} = $1; next }; - /^Importance: +(.+)/ && $section eq 'pkg' and do { $cur->{importance} = $1; next }; - /^(ID|URL): +(.+)/ && $section eq 'pkg' and do { $cur->{$1} = $2; next }; - /^%(pre|description)/ and do { $section = $1; next }; - $section =~ /^(pre|description)\z/ and $cur->{$1} .= $_; - } + foreach (cat_utf8(urpm::media::statedir_descriptions($urpm, $medium)), '%package dummy') { + /^%package +(.+)/ and do { + # fixes not parsing descriptions file when MU adds itself the security source: + if (exists $cur->{importance} && !member($cur->{importance}, qw(security bugfix))) { + $cur->{importance} = 'normal'; + } + $update_descr{$_} = $cur foreach @{$cur->{pkgs} || []}; + $cur = { pkgs => [ split /\s/, $1 ], medium => $medium->{name} }; + $section = 'pkg'; + next; + }; + /^Updated?: +(.+)/ && $section eq 'pkg' and do { $cur->{updated} = $1; next }; + /^Importance: +(.+)/ && $section eq 'pkg' and do { $cur->{importance} = $1; next }; + /^(ID|URL): +(.+)/ && $section eq 'pkg' and do { $cur->{$1} = $2; next }; + /^%(pre|description)/ and do { $section = $1; next }; + $section =~ /^(pre|description)\z/ and $cur->{$1} .= $_; + } } \%update_descr; } -- cgit v1.2.1