From 2b945c8178c4ae57d592c199a24f09ff7e0812ec Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 9 Aug 1999 08:23:57 +0000 Subject: *** empty log message *** --- perl-install/install_any.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index dd9bcd4de..d299b8bfc 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -86,10 +86,15 @@ sub spawnShell { } sub mouse_detect() { - my ($type, $dev) = split("\n", `./mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed"; + my ($type, $dev) = split("\n", `mouseconfig --nointeractive 2>/dev/null`) or die "mouseconfig failed"; $type, $dev; } +sub shells($) { + my ($o) = @_; + grep { -x "$o->{prefix}$_" } @{$o->{default}->{shells}}; +} + sub upgrFindInstall { # int rc; # -- cgit v1.2.1