From d0e43211e01cd23019525bb808e71f431d4139e8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 2 Jul 2008 17:28:46 +0000 Subject: re-indent (for future commit) --- urpme | 57 +++++++++++++++++++++++++++++---------------------------- 1 file changed, 29 insertions(+), 28 deletions(-) (limited to 'urpme') diff --git a/urpme b/urpme index b4347638..962b9915 100644 --- a/urpme +++ b/urpme @@ -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}) { -- cgit v1.2.1