3 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 0670a03d6..2857a6fdc 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- log extra debugging messages if passing the 'debug_urpmi' option
+
 Version 12.3 - 4 March 2009
 
 - honor 'selected_names' for auto_install
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index af1100b5c..465c5ba42 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -344,6 +344,7 @@ sub main {
 	    freedriver => sub { $o->{freedriver} = $v },
 	    no_bad_drives => sub { $o->{partitioning}{no_bad_drives} = 1 },
 	    nodmraid  => sub { $o->{partitioning}{nodmraid} = 1 },
+	    debug_urpmi  => sub { $o->{debug_urpmi} = 1 },
 	    readonly  => sub { $o->{partitioning}{readonly} = $v ne "0" },
 	    display   => sub { $o->{display} = $v },
 	    askdisplay => sub { print "Please enter the X11 display to perform the install on ? "; $o->{display} = chomp_(scalar(<STDIN>)) },
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 766edaebd..1b24f600a 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -305,6 +305,7 @@ sub empty_packages {
     #- add additional fields used by DrakX.
     @$packages{qw(count media)} = (0, []);
 
+    urpm::args::set_debug($packages) if $o->{debug_urpmi};
     $packages->{log} = \&log::l;
     $packages->{info} = \&log::l;
     $packages->{error} = sub { $::o->ask_warn(undef, $_[0]) };