do not abuse global namespace

4 files changed, 10 insertions, 10 deletions

diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 1714a5dae..a7faf4617 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -29,7 +29,7 @@ use Data::Dumper;
 
 local $_ = join '', @ARGV;
 
-$::direct = /-direct/;
+my $direct = /-direct/;
 
 my $in = 'interactive'->vnew('su', 'default');
 
@@ -37,7 +37,7 @@ my $imagefile = "/root/drakx/replay_install.img";
 -f $imagefile or $in->ask_warn(N("Error!"), 
 			       N("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
 
-$::direct or $in->ask_okcancel(N("Auto Install Configurator"),
+my $direct or $in->ask_okcancel(N("Auto Install Configurator"),
 N("You are about to configure an Auto Install floppy. This feature is somewhat dangerous and must be used circumspectly.
 
 With that feature, you will be able to replay the installation you've performed on this computer, being interactively prompted for some steps, in order to change their values.
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index b2ce377e9..0dfa138f8 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -40,7 +40,7 @@ $::isInstall and die "Not supported during install.\n";
 local $_ = join '', @ARGV;
 
 $::Wizard_pix_up = "drakgw.png";
-$::direct = /-direct/;
+my $direct = /-direct/;
 
 my $sysconf_network = "/etc/sysconfig/network";
 my $sysconf_dhcpd = "/etc/sysconfig/dhcpd";
@@ -187,7 +187,7 @@ step_ask_confirm:
 
 undef $::Wizard_no_previous;
     
-$::direct or $in->ask_okcancel(N("Internet Connection Sharing"),
+$direct or $in->ask_okcancel(N("Internet Connection Sharing"),
 N("You are about to configure your computer to share its Internet connection.
 With that feature, other computers on your local network will be able to use this computer's Internet connection.
 
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index 0fd55fe7b..c564995cb 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -32,7 +32,7 @@ use c;
 $::isInstall and die "Not supported during install.\n";
 
 $::Wizard_pix_up = "drakgw.png"; #- to change ? keep existing one, nobody will see (too late) ;-)
-$::direct = grep { /-direct/ } @ARGV;
+my $direct = grep { /-direct/ } @ARGV;
 
 
 #
@@ -108,7 +108,7 @@ begin:
 
 $::Wizard_no_previous = 1;
     
-$::direct or $in->ask_okcancel(N("Installation Server Configuration"),
+$direct or $in->ask_okcancel(N("Installation Server Configuration"),
 N("You are about to configure your computer to install a PXE server as a DHCP server
 and a TFTP server to build an installation server.
 With that feature, other computers on your local network will be installable using this computer as source.
diff --git a/perl-install/standalone/drakvpn b/perl-install/standalone/drakvpn
index 4387dc889..ee64cf9c1 100644
--- a/perl-install/standalone/drakvpn
+++ b/perl-install/standalone/drakvpn
@@ -41,7 +41,7 @@ $::isInstall and die "Not supported during install.\n";
 local $_ = join '', @ARGV;
 
 $::Wizard_pix_up = "drakvpn.png";
-$::direct = /-direct/;
+my $direct = /-direct/;
 
 my ($kernel_version) = c::kernel_version() =~ /(...)/;
 log::l("[drakvpn] kernel_version $kernel_version");
@@ -146,7 +146,7 @@ step_ask_confirm:
 
 undef $::Wizard_no_previous;
     
-$::direct or $in->ask_okcancel(N("Simple VPN setup."),
+$direct or $in->ask_okcancel(N("Simple VPN setup."),
 N("You are about to configure your computer to use a VPN connection.
 
 With this feature, computers on your local private network and computers
@@ -172,7 +172,7 @@ if ($kernel_version < 2.5) {
 	$proc_version = "ipsec native";
 }
 
-$::direct or $in->ask_okcancel(N("Simple VPN setup."),
+$direct or $in->ask_okcancel(N("Simple VPN setup."),
 N("VPN connection.
 
 This program is based on the following projects:
@@ -185,7 +185,7 @@ This program is based on the following projects:
 Please read AT LEAST the ipsec-howto docs
 before going any further.",$ipsec_package)) or goto begin;
 
-$::direct or $in->ask_okcancel(N("Kernel module."),
+$direct or $in->ask_okcancel(N("Kernel module."),
 N("The kernel need to have ipsec support.
 
 You're running a %s kernel version.