summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 22:54:51 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 22:54:51 +0000
commit7059b43bc3c8e072e68ba5ca5dda230715eb5362 (patch)
tree944a5048fc63b6bb50e4d45eccb2304357022e43 /perl-install/network
parent3c9bd5f13ec2b9e41661d75391415351a453f6d5 (diff)
downloaddrakx-7059b43bc3c8e072e68ba5ca5dda230715eb5362.tar
drakx-7059b43bc3c8e072e68ba5ca5dda230715eb5362.tar.gz
drakx-7059b43bc3c8e072e68ba5ca5dda230715eb5362.tar.bz2
drakx-7059b43bc3c8e072e68ba5ca5dda230715eb5362.tar.xz
drakx-7059b43bc3c8e072e68ba5ca5dda230715eb5362.zip
ensure struct XXX and o_XXX parameters always reference the same hashes
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/netconnect.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 359ed8c01..c77a788f9 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -82,9 +82,9 @@ sub get_subwizard {
# configuring all network devices
sub main {
my ($_prefix, $netcnx, $in, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) = @_;
- my $netc = $o_netc || {};
- my $mouse = $o_mouse || {};
- my $intf = $o_intf || {};
+ my $netc = $o_netc ||= {};
+ my $mouse = $o_mouse ||= {};
+ my $intf = $o_intf ||= {};
my $first_time = $o_first_time || 0;
my ($network_configured, $direct_net_install, $cnx_type, $type, $interface, @cards, @all_cards, @devices);
my (%connections, %rconnections, @connection_list);