From c3ffd21e8b6dcbfab25ceeb2220bf3df8517526f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 2 Sep 2005 10:00:24 +0000
Subject: allow verbose removing of packages

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f35ea7e30..cf56128c8 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1258,7 +1258,7 @@ sub remove_raw {
 
     $callback->($db, user => undef, remove => scalar @$to_remove);
 
-    $trans->run(undef, %run_transaction_options);
+    $trans->run(undef, %run_transaction_options, callback_uninst => $callback);
 }
 sub remove {
     my ($_to_remove, $_callback, %run_transaction_options) = @_;
-- 
cgit v1.2.1