diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-12 17:56:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-12 17:56:30 +0000 |
| commit | 76e1db70d4cffe9833f23855b7301bec68bcefdb (patch) | |
| tree | edc2931b632318ebb429fab9d2b1b87325d80b23 /perl-install/mouse.pm | |
| parent | 00701dbfc0ba81ef465015e11e48d9ca21394562 (diff) | |
| download | drakx-backup-do-not-use-76e1db70d4cffe9833f23855b7301bec68bcefdb.tar drakx-backup-do-not-use-76e1db70d4cffe9833f23855b7301bec68bcefdb.tar.gz drakx-backup-do-not-use-76e1db70d4cffe9833f23855b7301bec68bcefdb.tar.bz2 drakx-backup-do-not-use-76e1db70d4cffe9833f23855b7301bec68bcefdb.tar.xz drakx-backup-do-not-use-76e1db70d4cffe9833f23855b7301bec68bcefdb.zip | |
use $::prefix
Diffstat (limited to 'perl-install/mouse.pm')
| -rw-r--r-- | perl-install/mouse.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 88c807e6e..07a92940e 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -189,8 +189,7 @@ sub serial_port2text { } sub read { - my ($prefix) = @_; - my %mouse = getVarsFromSh "$prefix/etc/sysconfig/mouse"; + my %mouse = getVarsFromSh "$::prefix/etc/sysconfig/mouse"; eval { add2hash_(\%mouse, fullname2mouse($mouse{FULLNAME})) }; $mouse{nbuttons} = $mouse{XEMU3} eq "yes" ? 2 : $mouse{WHEEL} eq "yes" ? 5 : 3; \%mouse; |