summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-24 15:06:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-24 15:06:12 +0000
commitb3b73a63d14b4702369776093214f779f69f4aa3 (patch)
tree6a9125d7daf11ce4b7f0a7e9f0ebe8cebcc0c6ab /perl-install
parent041bce7f1ab685a4290865e4eb2c2f5d2aaac285 (diff)
downloaddrakx-b3b73a63d14b4702369776093214f779f69f4aa3.tar
drakx-b3b73a63d14b4702369776093214f779f69f4aa3.tar.gz
drakx-b3b73a63d14b4702369776093214f779f69f4aa3.tar.bz2
drakx-b3b73a63d14b4702369776093214f779f69f4aa3.tar.xz
drakx-b3b73a63d14b4702369776093214f779f69f4aa3.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog32
-rw-r--r--perl-install/commands.pm2
-rw-r--r--perl-install/install_steps_gtk.pm4
-rw-r--r--perl-install/install_steps_interactive.pm2
-rwxr-xr-xperl-install/standalone/mousedrake2
5 files changed, 12 insertions, 30 deletions
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 <pixel@mandrakesoft.com>
- * 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 <pixel@mandrakesoft.com>
-
- * 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 <damien@mandrakesoft.com>
-
- * netconnect.pm (isdn_detect): log NET_DEVICE when isdn too.
-
-2000-09-23 DrakX <install@linux-mandrake.com>
-
- * 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 <damien@mandrakesoft.com>
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;