--- network.pm.orig	2007-03-08 11:04:44.000000000 +0100
+++ network.pm	2007-03-08 11:18:28.000000000 +0100
@@ -382,13 +382,13 @@
 sub netprofile_set {
     my ($net, $profile) = @_;
     $net->{PROFILE} = $profile;
-    system('/sbin/set-netprofile', $net->{PROFILE});
+    system('env -i /sbin/set-netprofile', $net->{PROFILE});
     log::explanations(qq(Switching to "$net->{PROFILE}" profile));
 }
 
 sub netprofile_save {
     my ($net) = @_;
-    system('/sbin/save-netprofile', $net->{PROFILE});
+    system('env -i /sbin/save-netprofile', $net->{PROFILE});
     log::explanations(qq(Saving "$net->{PROFILE}" profile));
 }
 
@@ -402,7 +402,7 @@
 sub netprofile_clone {
     my ($source_profile, $dest_profile) = @_;
     return if !$dest_profile || $dest_profile eq "default" || member($dest_profile, netprofile_list());
-    system('/sbin/clone-netprofile', $source_profile, $dest_profile);
+    system('env -i /sbin/clone-netprofile', $source_profile, $dest_profile);
     log::explanations(qq("Creating "$dest_profile" profile));
 }