diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-11-06 12:38:31 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-11-06 12:38:31 +0000 |
| commit | 8f042ae66a87164de605ce880478d676ddbbdba9 (patch) | |
| tree | 706e9b4e3e80c91ae480b496fafc66311e36879f /perl-install | |
| parent | a28430c043769bfe0f7794f94adef716af2ca8e7 (diff) | |
| download | drakx-8f042ae66a87164de605ce880478d676ddbbdba9.tar drakx-8f042ae66a87164de605ce880478d676ddbbdba9.tar.gz drakx-8f042ae66a87164de605ce880478d676ddbbdba9.tar.bz2 drakx-8f042ae66a87164de605ce880478d676ddbbdba9.tar.xz drakx-8f042ae66a87164de605ce880478d676ddbbdba9.zip | |
vivification is dangerous
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 5 |
1 files changed, 4 insertions, 1 deletions
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}; } #------------------------------------------------------------------------------ |