From 107b1cbeace77c78d4885c138ca57d373a125bdf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Aug 1999 12:35:37 +0000
Subject: no_comment

---
 perl-install/install_any.pm | 4 +++-
 1 file changed, 3 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 d299b8bfc..1233b6e9e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -92,7 +92,9 @@ sub mouse_detect() {
 
 sub shells($) {
     my ($o) = @_;
-    grep { -x "$o->{prefix}$_" } @{$o->{default}->{shells}};
+    my @l = grep { -x "$o->{prefix}$_" } @{$o->{default}->{shells}};
+    @l or die "no shell available";
+    @l;
 }
 
 sub upgrFindInstall {
-- 
cgit v1.2.1