From cb058fe33615bb729abc2721b0f69976356f26f7 Mon Sep 17 00:00:00 2001 From: damien Date: Tue, 6 Mar 2001 03:06:35 +0000 Subject: corrected bad file search --- perl-install/install2.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'perl-install/install2.pm') 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)); } -- cgit v1.2.1