From 8cee632ac1ebf87bc5ac523ab57b096db6b19e18 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 4 Dec 2003 17:05:57 +0000
Subject: (is_dynamic_ip) handle habing ppp like interfaces in interfaces list

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

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 2209fdcc8..05ef51c94 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -324,7 +324,7 @@ sub is_wireless_intf {
 
 sub is_dynamic_ip {
   my ($intf) = @_;
-  every { $_->{BOOTPROTO} eq "static" } values %$intf
+  any { $_->{BOOTPROTO} !~ /^(none|static|)$/ } values %$intf;
 }
 
 1;
-- 
cgit v1.2.1