diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 62d68d6b3..4df87e835 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -538,16 +538,18 @@ sub main { } $::o = $o = $o_; - if (-e "/tmp/network") { + if (-e '/tmp/network') { require network; #- get stage1 network configuration if any. - $o->{netc} ||= network::read_conf("/tmp/network"); + log::l('found /tmp/network'); + $o->{netc} ||= network::read_conf('/tmp/network'); if (my ($file) = glob_('/tmp/ifcfg-*')) { log::l("found network config file $file"); my $l = network::read_interface_conf($file); $o->{intf} ||= { $l->{DEVICE} => $l }; } - if (my ($file) = glob_('/etc/resolv.conf')) { + if (-e '/etc/resolv.conf') { + my $file ='/etc/resolv.conf'; log::l("found network config file $file"); add2hash($o->{netc}, network::read_resolv_conf($file)); } |