diff options
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 7 |
1 files changed, 6 insertions, 1 deletions
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; # |