summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-02-11 13:11:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-02-11 13:11:54 +0000
commit32a83378c4a49d7b0bf6d574db66b52956a432c3 (patch)
tree37b7b436478f16934669b83a4d6c301f4f62b535 /perl-install
parent4167dc1ad8d3466546f4cfaa84f1f2b4885755aa (diff)
downloaddrakx-backup-do-not-use-32a83378c4a49d7b0bf6d574db66b52956a432c3.tar
drakx-backup-do-not-use-32a83378c4a49d7b0bf6d574db66b52956a432c3.tar.gz
drakx-backup-do-not-use-32a83378c4a49d7b0bf6d574db66b52956a432c3.tar.bz2
drakx-backup-do-not-use-32a83378c4a49d7b0bf6d574db66b52956a432c3.tar.xz
drakx-backup-do-not-use-32a83378c4a49d7b0bf6d574db66b52956a432c3.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog16
-rw-r--r--perl-install/fs.pm2
-rw-r--r--perl-install/install_steps_interactive.pm16
3 files changed, 25 insertions, 9 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index ea9a033e8..47007a780 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,19 @@
+2000-02-11 Pixel <pixel@mandrakesoft.com>
+
+ * install_steps_interactive.pm (setup_thiskind): handles the undef
+ value returned by load_thiskind
+
+ * install_steps_interactive.pm (load_thiskind): returns undef if
+ error loading a module
+
+ * fs.pm (format_part): changed the prototype from $;$@ to $;@
+ otherwise, @options always have a value (mostly undef) and mkdosfs
+ fails (with "mkdosfs", "/dev/hdXX", undef, "-F", 32)
+
+ * install_steps_interactive.pm (setup_thiskind):
+ add a $auto_probe_pci that overrules $o->{auto_probe_pci}
+ (that way no pci probe the second time)
+
2000-02-10 François Pons <fpons@mandrakesoft.com>
* heavy modification of build_archive and extract_archive to manage
a TOC directly in archive file, handle bzip2 or gzip compression,
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 390221732..f685c159f 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -73,7 +73,7 @@ sub format_dos($@) {
run_program::run("mkdosfs", devices::make($dev), @options) or die _("%s formatting of %s failed", "dos", $dev);
}
-sub format_part($;$@) {
+sub format_part($;@) {
my ($part, @options) = @_;
$part->{isFormatted} and return;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2cb1e567f..ed1ca1ecc 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1193,19 +1193,19 @@ You may have to restart installation and give ``%s'' at the prompt", $ide));
}
}
- eval { modules::load_thiskind($type, sub { $w = wait_load_module($o, $type, @_) }, $pcmcia) };
- $@ and $o->errorInStep($@);
+ my @l = eval { modules::load_thiskind($type, sub { $w = wait_load_module($o, $type, @_) }, $pcmcia) };
+ $@ and $o->errorInStep($@), return undef;
+ @l;
}
#------------------------------------------------------------------------------
sub setup_thiskind {
- my ($o, $type, $auto, $at_least_one) = @_;
+ my ($o, $type, $auto, $at_least_one) = @_;
+
+ # load_thiskind returns undef in case of error
+ my @l = $o->load_thiskind($type) if !$::expert || $o->ask_yesorno('', _("Try to find PCI devices?"), 1);
+ return if defined @l && $auto && (@l || !$at_least_one);
- if (!exists $o->{auto_probe_pci}) {
- $o->{auto_probe_pci} = !$::expert || $o->ask_yesorno('', _("Try to find PCI devices?"), 1);
- }
- my @l = $o->load_thiskind($type) if $o->{auto_probe_pci};
- return if $auto && (@l || !$at_least_one);
while (1) {
my $msg = @l ?
[ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type),