From 8be2a83adf5c1badb7da2e70414348386d7ee794 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 12 Feb 2004 15:08:43 +0000 Subject: do use the actual user's answer --- perl-install/network/netconnect.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index fb35a37c1..ed073d6e2 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1087,7 +1087,8 @@ You may also enter the IP address of the gateway if you have one."), name => N("The network needs to be restarted. Do you want to restart it ?"), # data => [ { label => N("Connection:"), val => \$type, type => 'list', list => [ sort values %l ] }, ], post => sub { - if (!$::testing && !run_program::rooted($::prefix, "/etc/rc.d/init.d/network restart")) { + my ($a) = @_; + if ($a && !$::testing && !run_program::rooted($::prefix, "/etc/rc.d/init.d/network restart")) { $success = 0; $in->ask_okcancel(N("Network Configuration"), N("A problem occured while restarting the network: \n\n%s", `/etc/rc.d/init.d/network restart`), 0); -- cgit v1.2.1