From a75ab0363abd1687139e35fb65f0f3b05a12c742 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 8 Apr 2005 13:38:53 +0000
Subject: with harddrake crash with USB/PCI DSL modems (#15034)

---
 perl-install/harddrake/data.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 1c480e11a..0bbe76556 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -241,7 +241,7 @@ our @tree =
       detector => sub { 
           require network::adsl;
           my $a = network::adsl::adsl_detect();
-          $a ? f(grep { @$_ } values %$a) : ();
+          $a ? f(map { @$_ } grep { defined($_) } values %$a) : ();
       },
       # we do not check these b/c this need user interaction (auth, ...):
       checked_on_boot => 0,
-- 
cgit v1.2.1