From 0f526e1de2c1eb22d27ddcbcb13fa57083e4e008 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Apr 2001 14:35:37 +0000
Subject: fix horrible error (using an undefined $o)

---
 perl-install/standalone/mousedrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/mousedrake')

diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 2c6acde75..b144d2515 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -41,8 +41,8 @@ if (!$mouse || !$::auto) {
 }
 $mouse->{XEMU3} = 'yes' if $mouse->{nbuttons} < 3 && (!$::noauto || $in->ask_yesorno('', _("Emulate third button?"), 1));
 
-$o->{mouse}{device} = 
-  $o->ask_from_listf(_("Mouse Port"),
+$mouse->{device} = 
+  $in->ask_from_listf(_("Mouse Port"),
 		     _("Please choose on which serial port your mouse is connected to."),
 		     \&mouse::serial_port2text,
 		     [ mouse::serial_ports ]) || goto begin if $mouse->{type} eq 'serial';
-- 
cgit v1.2.1