From 58c8e1fc0927484fbc8646706e8d27ba22f4d142 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 12 Sep 2003 10:16:43 +0000
Subject: fix #5586 (netprofile package still need be fixed)

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

(limited to 'perl-install/network')

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");
 }
 
-- 
cgit v1.2.1