diff options
Diffstat (limited to 'urpm/orphans.pm')
| -rw-r--r-- | urpm/orphans.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/urpm/orphans.pm b/urpm/orphans.pm index 2ca98287..67268fce 100644 --- a/urpm/orphans.pm +++ b/urpm/orphans.pm @@ -359,11 +359,13 @@ sub get_now_orphans_msg { my $orphans = get_orphans($urpm); my @orphans = map { scalar $_->fullname } @$orphans or return ''; - P("The following package is now orphaned, if you wish to remove it, you can use \"urpme --auto-orphans\".", - "The following packages are now orphaned, if you wish to remove them, you can use \"urpme --auto-orphans\".", scalar(@orphans)) - . "\n" . add_leading_spaces(join("\n", sort @orphans) . "\n"); + P("The following package:\n" . add_leading_spaces(join("\n", sort @orphans) . "\n") . + "is now orphaned, if you wish to remove it, you can use \"urpme --auto-orphans\"", + "The following packages:\n" . add_leading_spaces(join("\n", sort @orphans) . "\n") . + "are now orphaned, if you wish to remove them, you can use \"urpme --auto-orphans\"",scalar(@orphans)); } + #- side-effects: none sub add_leading_spaces { my ($s) = @_; |