From 0cfb13d05adadebb86e9dab9bc1f2d3410ef1ee7 Mon Sep 17 00:00:00 2001 From: Udo Spallek Date: Thu, 22 Mar 2007 16:15:34 +0000 Subject: [PATCH] Bug: "my" variable $form masks earlier declaration in same scope at SL/DBUpgrade2.pm --- SL/DBUpgrade2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm index b63b74903..8cde113ea 100644 --- a/SL/DBUpgrade2.pm +++ b/SL/DBUpgrade2.pm @@ -122,7 +122,7 @@ sub _check_for_loops { sub _control_error { my ($form, $file_name, $message) = @_; - my $form = $main::form; + $form = $main::form; my $locale = $main::locale; $form->error(sprintf($locale->text("Error in database control file '%s': %s"), -- 2.20.1