From 086506b80163940864a3389a6ae36dd0f66d521b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 4 Mar 2009 15:40:43 +0000 Subject: (empty_packages,main) log extra debugging messages if passing the 'debug_urpmi' option --- perl-install/install/NEWS | 2 ++ perl-install/install/install2.pm | 1 + perl-install/install/pkgs.pm | 1 + 3 files changed, 4 insertions(+) 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()) }, 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]) }; -- cgit v1.2.1