summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-05-17 13:00:44 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-05-17 13:00:44 +0000
commit0cecad66e429f1e8dc35d42c6fc9be44c9bb308d (patch)
tree8a64739a459e5fac4d351446ef4090931182c1f9 /perl-install
parent58b4c8257b95aafb2e34ea51da3f5fbb87a1ca75 (diff)
downloaddrakx-0cecad66e429f1e8dc35d42c6fc9be44c9bb308d.tar
drakx-0cecad66e429f1e8dc35d42c6fc9be44c9bb308d.tar.gz
drakx-0cecad66e429f1e8dc35d42c6fc9be44c9bb308d.tar.bz2
drakx-0cecad66e429f1e8dc35d42c6fc9be44c9bb308d.tar.xz
drakx-0cecad66e429f1e8dc35d42c6fc9be44c9bb308d.zip
perl_checker compliance
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm6
1 files changed, 3 insertions, 3 deletions
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));
}