From 67fac834e119eaba0d6d1cf90b0694d3a93902ad Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 16 Jan 2004 23:07:38 +0000
Subject: clean horrible code

---
 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 5c1ebe5c2..c923c4ce2 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -608,7 +608,7 @@ notation (for example, 1.2.3.4).")),
                         ],
                     },
                     complete => sub {
-                        $ethntf->{BOOTPROTO} = $auto_ip ? join('', if_($auto_ip, "dhcp")) : "static";
+                        $ethntf->{BOOTPROTO} = $auto_ip ? "dhcp" : "static";
                         $netc->{DHCP} = $auto_ip;
                         return 0 if $auto_ip;
                         if (my @bad = map_index { if_(!is_ip($ethntf->{$_}), $::i) } @fields) {
-- 
cgit v1.2.1