diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-05-17 13:00:44 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-05-17 13:00:44 +0000 |
| commit | 0cecad66e429f1e8dc35d42c6fc9be44c9bb308d (patch) | |
| tree | 8a64739a459e5fac4d351446ef4090931182c1f9 /perl-install/network/netconnect.pm | |
| parent | 58b4c8257b95aafb2e34ea51da3f5fbb87a1ca75 (diff) | |
| download | drakx-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/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 6 |
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)); } |