Revision 0cfb13d0
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 122 | 122 |
sub _control_error {
|
| 123 | 123 |
my ($form, $file_name, $message) = @_; |
| 124 | 124 |
|
| 125 |
my $form = $main::form;
|
|
| 125 |
$form = $main::form; |
|
| 126 | 126 |
my $locale = $main::locale; |
| 127 | 127 |
|
| 128 | 128 |
$form->error(sprintf($locale->text("Error in database control file '%s': %s"),
|
Auch abrufbar als: Unified diff
Bug: "my" variable $form masks earlier declaration in same scope at SL/DBUpgrade2.pm