summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-05-02 16:55:17 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-05-02 16:55:17 +0000
commitb501550fd329ec675ad88ecde3657bf67aebe588 (patch)
treef891d2925890b7d2fc4a06a053c50807df528016 /perl-install/network/tools.pm
parentd8f5b0de3c8959908d82be1b497ad17732bbac76 (diff)
downloaddrakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar
drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar.gz
drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar.bz2
drakx-b501550fd329ec675ad88ecde3657bf67aebe588.tar.xz
drakx-b501550fd329ec675ad88ecde3657bf67aebe588.zip
perl_checker fixes
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 19921b5d0..bba757950 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -13,10 +13,10 @@ use MDK::Common::System qw(getVarsFromSh);
@EXPORT_OK = qw($in);
sub write_cnx_script {
- my ($netc, $type, $up, $down, $type2) = @_;
- if ($type) {
- $netc->{internet_cnx}{$type}{$_->[0]} = $_->[1] foreach [$connect_file, $up], [$disconnect_file, $down];
- $netc->{internet_cnx}{$type}{type} = $type2;
+ my ($netc, $o_type, $o_up, $o_down, $o_type2) = @_;
+ if ($o_type) {
+ $netc->{internet_cnx}{$o_type}{$_->[0]} = $_->[1] foreach [$connect_file, $o_up], [$disconnect_file, $o_down];
+ $netc->{internet_cnx}{$o_type}{type} = $o_type2;
} else {
foreach ($connect_file, $disconnect_file) {
output_with_perm("$prefix$_", 0755,