diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-07-02 17:28:46 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-07-02 17:28:46 +0000 |
commit | d0e43211e01cd23019525bb808e71f431d4139e8 (patch) | |
tree | fb8f0fbfc4654edb33f41880d24a251757d9bef9 | |
parent | 1180c9c4fc9a29a8c40dc73b608d0f3c0a6ddbe1 (diff) | |
download | urpmi-d0e43211e01cd23019525bb808e71f431d4139e8.tar urpmi-d0e43211e01cd23019525bb808e71f431d4139e8.tar.gz urpmi-d0e43211e01cd23019525bb808e71f431d4139e8.tar.bz2 urpmi-d0e43211e01cd23019525bb808e71f431d4139e8.tar.xz urpmi-d0e43211e01cd23019525bb808e71f431d4139e8.zip |
re-indent (for future commit)
-rw-r--r-- | urpme | 57 |
1 files changed, 29 insertions, 28 deletions
@@ -89,35 +89,36 @@ urpm::media::configure($urpm, ); #- examine packages... -my @toremove = urpm::select::find_packages_to_remove($urpm, - $state, - \@cmdline_pkgs_to_remove, - matches => $options{matches}, - force => $force, - callback_notfound => sub { - my $urpm = shift @_; - #- Warning : the following message is parsed in urpm::parallel_* - $urpm->{fatal}(1, (@_ > 1 ? N("unknown packages") : N("unknown package")) . - ': ' . join(', ', @_)); - 0; - }, - callback_fuzzy => sub { - my $urpm = shift @_; - my $match = shift @_; - my $pkgs = $urpm::msg::no_translation ? join(' ', @_) : join('', map { "\n$_" } sort @_); - #- Warning : the following message is parsed in urpm::parallel_* - $urpm->{fatal}(1, N("The following packages contain %s: %s", $match, $pkgs)); - 0; - }, - callback_base => sub { - my $urpm = shift @_; - foreach (@_) { +my @toremove = urpm::select::find_packages_to_remove( + $urpm, + $state, + \@cmdline_pkgs_to_remove, + matches => $options{matches}, + force => $force, + callback_notfound => sub { + my $urpm = shift @_; + #- Warning : the following message is parsed in urpm::parallel_* + $urpm->{fatal}(1, (@_ > 1 ? N("unknown packages") : N("unknown package")) . + ': ' . join(', ', @_)); + 0; + }, + callback_fuzzy => sub { + my $urpm = shift @_; + my $match = shift @_; + my $pkgs = $urpm::msg::no_translation ? join(' ', @_) : join('', map { "\n$_" } sort @_); #- Warning : the following message is parsed in urpm::parallel_* - $urpm->{error}(N("removing package %s will break your system", $_)); - } - 0; - }, -) or $urpm->{fatal}(0, N("Nothing to remove")); + $urpm->{fatal}(1, N("The following packages contain %s: %s", $match, $pkgs)); + 0; + }, + callback_base => sub { + my $urpm = shift @_; + foreach (@_) { + #- Warning : the following message is parsed in urpm::parallel_* + $urpm->{error}(N("removing package %s will break your system", $_)); + } + 0; + }, + ) or $urpm->{fatal}(0, N("Nothing to remove")); my $list = urpm::select::translate_why_removed($urpm, $state, @toremove); if ($test && $options{auto}) { |