diff options
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | Rpmdrake/pkg.pm | 9 |
2 files changed, 10 insertions, 0 deletions
@@ -1,4 +1,5 @@ - rpmdrake + o display orphan packages after removing some packages o fix registering orphan package (#51229) Version 5.19 - 1 October 2009, Thierry Vignaud diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 0a64611c..55d76dcb 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -901,6 +901,10 @@ sub perform_removal { my $gurpm = Rpmdrake::gurpm->new(1 ? N("Please wait") : N("Please wait, removing packages..."), N("Initializing..."), transient => $::main_window); my $_gurpm_clean_guard = before_leaving { undef $gurpm }; + my $may_be_orphans = 1; + urpm::orphans::unrequested_orphans_after_remove($urpm, \@toremove) + or $may_be_orphans = 0; + my $progress = -1; local $urpm->{log} = sub { my $str = $_[0]; @@ -933,6 +937,11 @@ sub perform_removal { ); return 1; } else { + if ($may_be_orphans && !$::rpmdrake_options{auto_orphans}) { + if (my $msg = urpm::orphans::get_now_orphans_msg($urpm)) { + interactive_msg(N("Information"), $msg); + } + } return 0; } } |