From 0516b4cdce2258a4446b7013521a76c7afb4d1d8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Thu, 22 Oct 2009 17:01:05 +0200 Subject: [PATCH] installationcheck strict --- bin/mozilla/installationcheck.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/bin/mozilla/installationcheck.pl b/bin/mozilla/installationcheck.pl index 71f3c01c8..54a9211a5 100644 --- a/bin/mozilla/installationcheck.pl +++ b/bin/mozilla/installationcheck.pl @@ -1,10 +1,14 @@ use SL::InstallationCheck; +use strict; + sub verify_installation { my $script = $0; $script =~ s|.*/||; - return unless ($form{"action"} && ($script eq "login.pl")); + my $form = $main::form; + + return unless ($form->{"action"} && ($script eq "login.pl")); SL::InstallationCheck::check_for_conditional_dependencies(); @@ -12,7 +16,7 @@ sub verify_installation { return if (scalar(@missing_modules) == 0); use SL::Locale; - my $locale = new Locale($language, "installationcheck"); + my $locale = new Locale($main::language, "installationcheck"); print(qq|content-type: text/html -- 2.20.1