From 19cd735585aaec445f59e00b84221bcd9e669c56 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 25 Feb 2013 17:57:16 +0000
Subject: enable callers to pass their own callbacks for erasure progress &
 errors

eg: for rpmdrake/gurpm/drakx
---
 urpm/install.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'urpm/install.pm')

diff --git a/urpm/install.pm b/urpm/install.pm
index b970d93c..a6478b11 100644
--- a/urpm/install.pm
+++ b/urpm/install.pm
@@ -298,9 +298,9 @@ sub _get_callbacks {
 	}
     };
 
-    $options->{callback_uninst} = $options->{verbose} >= 0 ? \&install_logger : $erase_logger;
+    $options->{callback_uninst} ||= $options->{verbose} >= 0 ? \&install_logger : $erase_logger;
 
-    $options->{callback_error} = sub {
+    $options->{callback_error} ||= sub {
 	my ($urpm, undef, $id, $subtype) = @_;
 	my $n = $urpm->{depslist}[$id]->fullname;
 	$urpm->{error}("ERROR: '$subtype' failed for $n: ");
-- 
cgit v1.2.1