From 78aef7f66bb62da23ff87ba2f24fb5e33637c0be Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 24 Feb 2000 14:39:04 +0000
Subject: no_comment

---
 perl-install/ChangeLog                    |  6 ++++++
 perl-install/Makefile                     |  1 +
 perl-install/Xconfigurator.pm             |  2 +-
 perl-install/install2.pm                  |  2 ++
 perl-install/install_steps.pm             |  3 ---
 perl-install/install_steps_interactive.pm | 17 ++++++++++-------
 perl-install/interactive_gtk.pm           |  2 +-
 7 files changed, 21 insertions(+), 12 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index dd37ac52b..46bd89f87 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,7 +1,13 @@
 2000-02-24  Pixel  <pixel@mandrakesoft.com>
 
+	* install2.pm (main): moved the ejectCdrom from install_steps::END
+	to here
+
 	* install_steps_interactive.pm (createBootdisk): fix an error for
 	non fdX choice of floppy drive
+	
+	* install_steps_interactive.pm (setup_thiskind): remove the
+	"defined @l"
 
 2000-02-23  Pixel  <pixel@mandrakesoft.com>
 
diff --git a/perl-install/Makefile b/perl-install/Makefile
index 6e3ed41c7..a092da5fb 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -56,6 +56,7 @@ install_pms: $(DIRS)
 get_needed_files: $(DIRS)
 #	export PERL_INSTALL_TEST=1 ; strace -f -e trace=file -o '| grep -v "(No such file or directory)" | sed -e "s/[^\"]*\"//" -e "s/\".*//" | grep "^/" | grep -v -e "^/tmp" -e "^/home" -e "^/proc" -e "^/var" -e "^/dev" -e "^/etc" -e "^/usr/lib/rpm" > /tmp/list ' $(PERL) -d install2 < /dev/null
 	perl -pe "s/ARCH/$(ARCH)/g" share/list > /tmp/list
+	perl -pi -e 's/00503/5.660/g' /tmp/list
 	cat `../tools/specific_arch share/list` >> /tmp/list
 	find auto -follow -name "*.so" >> /tmp/list
 
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 8a567234c..65abceaa8 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -495,7 +495,7 @@ sub chooseResolutionsGtk($$;$) {
 		    1, gtkpack(new Gtk::HBox(0,20),
 			       $depth_combo = new Gtk::Combo,
 			       gtkpack_(new Gtk::VBox(0,0),
-					map { 0, $w2widget{$_} } ikeys(%w2widget),
+					map {; 0, $w2widget{$_} } ikeys(%w2widget),
 					),
 			       ),
 		    0, gtkadd($W->create_okcancel,
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 23478df31..af40b5a3e 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -643,6 +643,8 @@ sub main {
 
 	last if $o->{step} eq 'exitInstall';
     }
+    install_any::ejectCdrom();
+
     fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount});
     modules::write_conf("$o->{prefix}/etc/conf.modules", 'append');
 
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index db66ebb92..38b21a60f 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -751,9 +751,6 @@ sub cleanIfFailedUpgrade($) {
     }
 }
 
-#------------------------------------------------------------------------------
-END { install_any::ejectCdrom }
-
 #-######################################################################################
 #- Wonderful perl :(
 #-######################################################################################
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e8540b176..f7aa39acf 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1148,19 +1148,22 @@ sub load_thiskind {
 	    modules::add_alias("sound", $c);
 	}
     }
-    my @l = eval { modules::load_thiskind($type, sub { $w = wait_load_module($o, $type, @_) }, $pcmcia) };
-    $@ and $o->errorInStep($@), return undef;
-    @l;
+    modules::load_thiskind($type, sub { $w = wait_load_module($o, $type, @_) }, $pcmcia);
 }
 
 #------------------------------------------------------------------------------
 sub setup_thiskind {
     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);
-
+    my @l;
+    if (!$::expert || $o->ask_yesorno('', _("Try to find PCI devices?"), 1)) {
+	eval { @l = $o->load_thiskind($type) };
+	if ($@) {
+	    $o->errorInStep($@);
+	} else {
+	    return if $auto && (@l || !$at_least_one);
+	}
+    }
     while (1) {
 	my $msg = @l ?
 	  [ _("Found %s %s interfaces", join(", ", map { $_->[0] } @l), $type),
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 6e5e8eb4f..d59a1ea15 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -81,7 +81,7 @@ sub ask_from_treelistW {
 	    foreach my $nb (1 .. @$l) {
 		if ($tree->node_nth($nb) == $node) {
 		    $tree->focus_row($nb);
-		    Gtk->idle_add(sub { $tree->moveto($nb, 0, 0.5, 0); 0 });
+		    Gtk->idle_add(sub { $tree->node_moveto($node, 0, 0.5, 0); 0 });
 		    last;
 		}
 	    }
-- 
cgit v1.2.1