uses the fantastic global module.

1 files changed, 5 insertions, 4 deletions

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index ae1d2abcf..001fb4698 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -18,16 +18,16 @@ use commands;
 #require Data::Dumper;
 
 use network::tools;
+use globals qw($in $prefix $install);
 
 $connect_file = "/etc/sysconfig/network-scripts/net_cnx_up";
 $disconnect_file = "/etc/sysconfig/network-scripts/net_cnx_down";
 $connect_prog = "/etc/sysconfig/network-scripts/net_cnx_pg";
 
-sub init { ($prefix, $in, $install) = @_ }
-
 #- intro is called only in standalone.
 sub intro {
-    ($prefix, my $netcnx, $in, $install) = @_;
+    (my $prefix, my $netcnx, my $in, my $install) = @_;
+    globals::init(in => $in, prefix => $prefix, install => $install);
     my ($netc, $mouse, $intf) = ({}, {}, {});
     my $text;
     my $connected;
@@ -85,7 +85,8 @@ sub detect {
 }
 
 sub main {
-    ($prefix, my $netcnx, my $netc, my $mouse, $in, my $intf, $install, my $first_time, my $direct_fr) = @_;
+    (my $prefix, my $netcnx, my $netc, my $mouse, my $in, my $intf, my $install, my $first_time, my $direct_fr) = @_;
+    globals::init(in => $in, prefix => $prefix, install => $install);
     $netc->{minus_one}=0; #When one configure an eth in dhcp without gateway
     $::isInstall and $in->set_help('configureNetwork');
     $::isStandalone and read_net_conf($netcnx, $netc); # REDONDANCE with intro. FIXME