summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-11-06 12:38:31 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-11-06 12:38:31 +0000
commit8f042ae66a87164de605ce880478d676ddbbdba9 (patch)
tree706e9b4e3e80c91ae480b496fafc66311e36879f /perl-install
parenta28430c043769bfe0f7794f94adef716af2ca8e7 (diff)
downloaddrakx-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.pm5
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};
}
#------------------------------------------------------------------------------