From a5110de51a1f80d81552836e26fe6951587c2153 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 28 Feb 2003 10:26:48 +0000 Subject: ensure the $::expert flag in netconnect doesn't propagate to the rest of the install --- perl-install/install_steps_interactive.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index e32811256..b644fcb1a 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -989,6 +989,7 @@ sub summary { label => N("Network"), val => sub { $o->{netcnx}{type} }, clicked => sub { + local $::expert = $::expert; require network::netconnect; network::netconnect::main($o->{prefix}, $o->{netcnx} ||= {}, $o->{netc}, $o->{mouse}, $o, $o->{intf}, 0, 0, 1); }, -- cgit v1.2.1