summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/install2.pm1
-rw-r--r--perl-install/install/pkgs.pm1
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]) };