summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 844ce41b5..8f479a639 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -55,12 +55,12 @@ sub passwd_by_login {
sub connect_backend {
my ($netc) = @_;
- run_program::rooted($::prefix, "ifup $netc->{NET_INTERFACE} &");
+ run_program::rooted({ detach => 1, root => $::prefix }, "ifup", $netc->{NET_INTERFACE});
}
sub disconnect_backend {
my ($netc) = @_;
- run_program::rooted($::prefix, "ifdown $netc->{NET_INTERFACE} &");
+ run_program::rooted({ detach => 1, root => $::prefix }, "ifdown", $netc->{NET_INTERFACE});
}
sub bg_command_as_root {
@@ -76,7 +76,7 @@ sub bg_command_as_root {
sub user_run_interface_command {
my ($command, $intf) = @_;
if (system("usernetctl $intf report") == 0) {
- run_program::run("$command $intf &");
+ run_program::raw({ detach => 1 }, $command, $intf);
} else {
bg_command_as_root($command, $intf);
}