diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 22:54:51 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 22:54:51 +0000 |
| commit | 7059b43bc3c8e072e68ba5ca5dda230715eb5362 (patch) | |
| tree | 944a5048fc63b6bb50e4d45eccb2304357022e43 | |
| parent | 3c9bd5f13ec2b9e41661d75391415351a453f6d5 (diff) | |
| download | drakx-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
| -rw-r--r-- | perl-install/network/netconnect.pm | 6 |
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); |