From b501550fd329ec675ad88ecde3657bf67aebe588 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Fri, 2 May 2003 16:55:17 +0000
Subject: perl_checker fixes

---
 perl-install/network/tools.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/network/tools.pm')

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,
-- 
cgit v1.2.1