From 0cecad66e429f1e8dc35d42c6fc9be44c9bb308d Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Mon, 17 May 2004 13:00:44 +0000
Subject: perl_checker compliance

---
 perl-install/network/netconnect.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 4c582eac1..2e1dd5908 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -1331,13 +1331,13 @@ sub main {
 
 sub set_profile {
     my ($netcnx) = @_;
-    system(qq(/sbin/set-netprofile "$netcnx->{PROFILE}"));
+    system('/sbin/set-netprofile', $netcnx->{PROFILE});
     log::explanations(qq(Switching to "$netcnx->{PROFILE}" profile));
 }
 
 sub save_profile {
     my ($netcnx) = @_;
-    system(qq(/sbin/save-netprofile "$netcnx->{PROFILE}"));
+    system('/sbin/save-netprofile', $netcnx->{PROFILE});
     log::explanations(qq(Saving "$netcnx->{PROFILE}" profile));
 }
 
@@ -1351,7 +1351,7 @@ sub del_profile {
 sub add_profile {
     my ($netcnx, $profile) = @_;
     return if !$profile || $profile eq "default" || member($profile, get_profiles());
-    system(qq(/sbin/clone-netprofile "$netcnx->{PROFILE}" "$profile"));
+    system('/sbin/clone-netprofile', $netcnx->{PROFILE}, $profile);
     log::explanations(qq("Creating "$profile" profile));
 }
 
-- 
cgit v1.2.1