summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakvpn
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-16 16:49:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-16 16:49:53 +0000
commitba8e8f1212675679d40009210454f62d26db2182 (patch)
treeb6cb9683eb255fde720be4e129857d90aa30c97c /perl-install/standalone/drakvpn
parent2fdb9db2e8839891d304a31c21f83434048220d6 (diff)
downloaddrakx-ba8e8f1212675679d40009210454f62d26db2182.tar
drakx-ba8e8f1212675679d40009210454f62d26db2182.tar.gz
drakx-ba8e8f1212675679d40009210454f62d26db2182.tar.bz2
drakx-ba8e8f1212675679d40009210454f62d26db2182.tar.xz
drakx-ba8e8f1212675679d40009210454f62d26db2182.zip
do not abuse global namespace
Diffstat (limited to 'perl-install/standalone/drakvpn')
-rw-r--r--perl-install/standalone/drakvpn8
1 files changed, 4 insertions, 4 deletions
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.