diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-13 14:25:59 +0000 |
| commit | b7661719bc1f1ebd078c7e7adb2eb25c83526c27 (patch) | |
| tree | 9cedb533d18ccd4640a30488b731f83c3c438d58 /perl-install/network/ethernet.pm | |
| parent | f47690a41184c9f99a6fbf003b1045c3f4c0220b (diff) | |
| download | drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.gz drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.bz2 drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.tar.xz drakx-backup-do-not-use-b7661719bc1f1ebd078c7e7adb2eb25c83526c27.zip | |
add/remove spaces to make perl_checker happy
Diffstat (limited to 'perl-install/network/ethernet.pm')
| -rw-r--r-- | perl-install/network/ethernet.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 3754cfd4a..bda415549 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -16,7 +16,7 @@ use MDK::Common::Globals "network", qw($in $prefix); sub configure_cable { my ($netcnx, $netc, $intf, $first_time) = @_; $::isInstall and $in->set_help('configureNetworkCable'); - $netcnx->{type}='cable'; + $netcnx->{type} = 'cable'; # $netcnx->{cable}={}; # $in->ask_from_entries_ref(N("Cable connection"), # N("Please enter your host name if you know it. @@ -38,9 +38,9 @@ sub configure_cable { Default is dhcpcd"), sub { $_[0]{description} }, \@m)) { - $f->{c}==1 and $netcnx->{dhcp_client}="dhcpcd" and $in->do_pkgs->install(qw(dhcpcd)); - $f->{c}==3 and $netcnx->{dhcp_client}="dhcpxd" and $in->do_pkgs->install(qw(dhcpxd)); - $f->{c}==4 and $netcnx->{dhcp_client}="dhcp-client" and $in->do_pkgs->install(qw(dhcp-client)); + $f->{c} == 1 and $netcnx->{dhcp_client} = "dhcpcd" and $in->do_pkgs->install(qw(dhcpcd)); + $f->{c} == 3 and $netcnx->{dhcp_client} = "dhcpxd" and $in->do_pkgs->install(qw(dhcpxd)); + $f->{c} == 4 and $netcnx->{dhcp_client} = "dhcp-client" and $in->do_pkgs->install(qw(dhcp-client)); } } else { $in->do_pkgs->install(qw(dhcpcd)); @@ -63,7 +63,7 @@ sub configure_lan { configureNetwork2($in, $prefix, $netc, $intf); $netc->{NETWORKING} = "yes"; if ($netc->{GATEWAY} || grep { $_->{BOOTPROTO} eq 'dhcp' } values %$intf) { - $netcnx->{type}='lan'; + $netcnx->{type} = 'lan'; $netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = ''; $netcnx->{NET_INTERFACE} = 'lan'; #$netc->{NET_INTERFACE}; write_cnx_script($netc, "local network", @@ -162,7 +162,7 @@ sub conf_network_card_backend { sub go_ethernet { my ($netc, $intf, $type, $ipadr, $netadr, $first_time) = @_; conf_network_card($netc, $intf, $type, $ipadr, $netadr) or return; - $netc->{NET_INTERFACE}=$netc->{NET_DEVICE}; + $netc->{NET_INTERFACE} = $netc->{NET_DEVICE}; configureNetwork($netc, $intf, $first_time) or return; # if ( $::isStandalone and $netc->{NET_DEVICE}) { # $in->ask_yesorno(N("Network interface"), |