From b3b73a63d14b4702369776093214f779f69f4aa3 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 24 Sep 2000 15:06:12 +0000 Subject: no_comment --- perl-install/ChangeLog | 32 ++++++------------------------- perl-install/commands.pm | 2 +- perl-install/install_steps_gtk.pm | 4 +++- perl-install/install_steps_interactive.pm | 2 +- perl-install/standalone/mousedrake | 2 +- 5 files changed, 12 insertions(+), 30 deletions(-) (limited to 'perl-install') diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog index 6c2346a73..5eb017dfb 100644 --- a/perl-install/ChangeLog +++ b/perl-install/ChangeLog @@ -1,32 +1,12 @@ 2000-09-24 Pixel - * fs.pm (umount): remove the ending "/" in the mntpoint. Otherwise - the mtab updating fails to update properly + * commands.pm (bug): use first floppy drive instead of fd0 hard + coded (nice for LS120's) -2000-09-23 Pixel - - * partition_table.pm (active): set the hd dirty - - * services.pm (services): patched to handle xinetd sub-services - - * install2.pm (formatPartitions): unset choosePackages done, so - that choosePackages is done again - - * install_steps.pm (doPartitionDisksBefore): close pkgs::LOG and - umount /mnt/proc so that going back to partitioning doesn't fail - because /mnt can't be umounted. - umount_all twice after a sleep (HACK) - - * pkgs.pm: updated $A, $B and $C for 7.2 (used by correctSize and - invCorrectSize) - -2000-09-23 dam's - - * netconnect.pm (isdn_detect): log NET_DEVICE when isdn too. - -2000-09-23 DrakX - - * snapshot uploaded + * install_steps_gtk.pm (selectMouse): if device changed, do the + test + * standalone/mousedrake: fix for serial mice + * install_steps_interactive.pm (selectMouse): fix for serial mice 2000-09-23 dam's diff --git a/perl-install/commands.pm b/perl-install/commands.pm index f23caef0d..311b204f2 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -561,7 +561,7 @@ sub install_cpio($$;@) { sub bug { my ($h) = getopts(\@_, "h"); $h and die "usage: bug\nput file report.bug on fat formatted floppy\n"; - mount "/dev/fd0", "/fd0"; + mount devices::make(first(detect_devices::floppies())), "/fd0"; sub header { " ******************************************************************************** diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index bfe21d896..6ae0b53e1 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -172,7 +172,9 @@ sub selectMouse { my %old = %{$o->{mouse}}; $o->SUPER::selectMouse($force); my $mouse = $o->{mouse}; - $old{type} eq $mouse->{type} && $old{name} eq $mouse->{name} && !$force and return; + $old{type} eq $mouse->{type} && + $old{name} eq $mouse->{name} && + $old{device} eq $mouse->{device} && !$force and return; local $my_gtk::grab = 1; #- unsure a crazy mouse don't go wild clicking everywhere diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 6e315de27..2c35a4e9e 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -164,7 +164,7 @@ sub selectMouse { sub { join '|', map { translate($_) } split '\|', $_[0] }, [ mouse::fullnames ], $prev)) if $force; - if ($force && $o->{mouse}{device} eq "ttyS") { + if ($force && $o->{mouse}{type} eq 'serial') { $o->set_help('selectSerialPort'); $o->{mouse}{device} = $o->ask_from_listf(_("Mouse Port"), diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index 93fc3081e..e1d3456b7 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -39,7 +39,7 @@ $mouse->{XEMU3} = 'yes' if $mouse->{nbuttons} < 3 && (!$::noauto || $in->ask_yes $mouse->{device} = mouse::serial_ports_names2dev( $in->ask_from_list(_("Mouse Port"), _("Which serial port is your mouse connected to?"), - [ mouse::serial_ports_names() ])) if $mouse->{device} eq "ttyS"; + [ mouse::serial_ports_names() ])) if $mouse->{type} eq 'serial'; mouse::write('', $mouse); modules::write_conf('') if $mouse->{device} eq "usbmouse" && !$::testing; -- cgit v1.2.1