summaryrefslogtreecommitdiffstats
path: root/perl-install/network.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-12 08:19:45 +0000
committerdamien <damien@mandriva.com>2001-04-12 08:19:45 +0000
commit7ac401f247fda28ae9d03b8b507046566c43b513 (patch)
treecf003a18f3db34c09666cc7cf04c5f04b09a976e /perl-install/network.pm
parent22941f0c1eee02b84675f6ac0e62f4c2ba07c062 (diff)
downloaddrakx-7ac401f247fda28ae9d03b8b507046566c43b513.tar
drakx-7ac401f247fda28ae9d03b8b507046566c43b513.tar.gz
drakx-7ac401f247fda28ae9d03b8b507046566c43b513.tar.bz2
drakx-7ac401f247fda28ae9d03b8b507046566c43b513.tar.xz
drakx-7ac401f247fda28ae9d03b8b507046566c43b513.zip
corrected network connection
Diffstat (limited to 'perl-install/network.pm')
-rw-r--r--perl-install/network.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/network.pm b/perl-install/network.pm
index a1350dd8a..174692d4d 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -189,7 +189,8 @@ sub dnsServers {
sub findIntf {
my ($intf, $device) = @_;
- $intf->{$device} ||= { DEVICE => $device };
+ $intf->{$device}->{DEVICE} = $device;
+ $intf->{$device};
}
#PAD \s* a la fin
my $ip_regexp = qr/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/;