From 0f77199107c9131e0f2dc446d69077694075b8a4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 29 Jan 2004 23:26:02 +0000
Subject: kppp provider db reading: blacklist spurious .directory entries

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

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index d03aadccd..99693cb4b 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -404,7 +404,7 @@ Take a look at http://www.linmodems.org"),
                                 s/%([0-9]{3})/chr(int($1))/eg;
                                 $countries{$country} ||= translate($country);
                                 join('', $countries{$country}, $_);
-                            } glob_("$db_path/$country/*")
+                            } grep { !/.directory$/ } glob_("$db_path/$country/*")
                         } map { s!$db_path/!!o; s!_! !g; $_ } glob_("$db_path/*");
                         $old_provider = $provider;
                     },
-- 
cgit v1.2.1