From 0976d0441bee25d06260dad7b520173063e194ec Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 18 Sep 1999 21:41:07 +0000 Subject: no_comment --- perl-install/install_any.pm | 6 ------ 1 file changed, 6 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 07480df6c..d0b6c2fa9 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -86,12 +86,6 @@ sub spawnShell { exec {"/bin/sh"} "-/bin/sh" or log::l("exec of /bin/sh failed: $!"); } -sub mouse_detect() { - my %l; - @l{qw(MOUSETYPE XMOUSETYPE DEVICE)} = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed"; - \%l; -} - sub shells($) { my ($o) = @_; my @l = grep { -x "$o->{prefix}$_" } @{$o->{shells}}; -- cgit v1.2.1