From 2c35f854a76ea94f9e5fdfa4a41f1468a8589dc6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 9 Sep 2008 15:31:42 +0000
Subject: (set_debug) extract it so that rpmdrake can support the --debug
 option

---
 urpm/args.pm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'urpm')

diff --git a/urpm/args.pm b/urpm/args.pm
index aeaf0829..35775da8 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -42,14 +42,17 @@ sub add_param_closure {
 # to ensure f*cking code (eg: Sys::Syslog) won't exit and break graphical interfaces
 END { $::debug_exit and print STDERR "EXITING (pid=$$)\n" }
 
+sub set_debug { 
+    my ($urpm) = @_;
+    $::debug_exit = 1;
+    $options{verbose}++;
+    $urpm->{debug} = $urpm->{debug_URPM} = sub { print STDERR "$_[0]\n" };
+}
+
 # options specifications for Getopt::Long
 
 my %options_spec_all = (
-	'debug' => sub { 
-	    $::debug_exit = 1; 
-	    $options{verbose}++;
-	    $urpm->{debug} = $urpm->{debug_URPM} = sub { print STDERR "$_[0]\n" };
-	},
+	'debug' => sub { set_debug($urpm) },
 	'debug-librpm' => sub { URPM::setVerbosity(7) }, # 7 == RPMLOG_DEBUG
 	'q|quiet' => sub { --$options{verbose} },
 	'v|verbose' => sub { ++$options{verbose} },
-- 
cgit v1.2.1