summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 00803a90a..0d173ca93 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -275,13 +275,13 @@ fi
sub set_profile {
my ($netcnx) = @_;
- system("/sbin/set-netprofile $netcnx->{PROFILE}");
+ system("/sbin/set-netprofile \"$netcnx->{PROFILE}\"");
log::explanations("Switching to \"$netcnx->{PROFILE}\" profile");
}
sub save_profile {
my ($netcnx) = @_;
- system("/sbin/save-netprofile $netcnx->{PROFILE}");
+ system("/sbin/save-netprofile \"$netcnx->{PROFILE}\"");
log::explanations("Saving \"$netcnx->{PROFILE}\" profile");
}
@@ -289,13 +289,13 @@ sub del_profile {
my ($profile) = @_;
return if !$profile || $profile eq "default";
rm_rf("$::prefix/etc/netprofile/profiles/$profile");
- log::explanations("Deleting \"$profile\"profile ");
+ log::explanations("Deleting \"$profile\" profile ");
}
sub add_profile {
my ($netcnx, $profile) = @_;
return if !$profile || $profile eq "default" || member($profile, get_profiles());
- system("/sbin/clone-netprofile $netcnx->{PROFILE} $profile");
+ system("/sbin/clone-netprofile \"$netcnx->{PROFILE}\" \"$profile\"");
log::explanations("Creating \"$profile\" profile");
}