diff options
author | Thierry Vignaud <tv@mandriva.org> | 2007-08-10 22:39:52 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2007-08-10 22:39:52 +0000 |
commit | d20c1d5001eb5a001dca0ade0668136bea8c1362 (patch) | |
tree | 7e182c29f830a0d8448075f8aa66570b9315888d /urpm.pm | |
parent | 342338f1c877625db200d2bf51c2d42d0036f1b3 (diff) | |
download | urpmi-d20c1d5001eb5a001dca0ade0668136bea8c1362.tar urpmi-d20c1d5001eb5a001dca0ade0668136bea8c1362.tar.gz urpmi-d20c1d5001eb5a001dca0ade0668136bea8c1362.tar.bz2 urpmi-d20c1d5001eb5a001dca0ade0668136bea8c1362.tar.xz urpmi-d20c1d5001eb5a001dca0ade0668136bea8c1362.zip |
(get_updates_description) reindent
Diffstat (limited to 'urpm.pm')
-rw-r--r-- | urpm.pm | 34 |
1 files changed, 17 insertions, 17 deletions
@@ -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; } |