summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
commit925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch)
tree29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/install_any.pm
parentc8b361905dedbe2961b4e3c1670d5028eec12807 (diff)
downloaddrakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar
drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.gz
drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.bz2
drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.xz
drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 514b940e7..34f4c9139 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -74,7 +74,10 @@ sub spawnShell {
exec {"/bin/sh"} "-/bin/sh" or log::l("exec of /bin/sh failed: $!");
}
-
+sub mouse_detect() {
+ my ($type, $dev) = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed";
+ $type, $dev;
+}
sub upgrFindInstall {
# int rc;