From 8f042ae66a87164de605ce880478d676ddbbdba9 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 6 Nov 2003 12:38:31 +0000 Subject: vivification is dangerous --- perl-install/install2.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 7e75d2284..f45ae8dbe 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -60,6 +60,9 @@ $o = $::o = { #- for the list of fields available for user and superuser, see @etc_pass_fields in install_steps.pm #- intf => { eth0 => { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' } }, + netc => {}, + intf => {}, + #-step : the current one #-prefix #-mouse @@ -240,7 +243,7 @@ sub configureNetwork { my ($_clicked, $_ent_number, $auto) = @_; #- get current configuration of network device. require network; - eval { network::read_all_conf($o->{prefix}, $o->{netc} ||= {}, $o->{intf} ||= {}) }; + eval { network::read_all_conf($o->{prefix}, $o->{netc}, $o->{intf}) }; installStepsCall($o, $auto, 'configureNetwork') if !$o->{isUpgrade}; } #------------------------------------------------------------------------------ -- cgit v1.2.1