X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ee072e4f077213bf6f8792ca8f0a1afebbb6282f..46d3c6157bf6494b1fb65e554715e73b4cf967ef:/SL/Inifile.pm diff --git a/SL/Inifile.pm b/SL/Inifile.pm index 8ec3e80bd..eae4f49e4 100644 --- a/SL/Inifile.pm +++ b/SL/Inifile.pm @@ -43,6 +43,8 @@ sub new { my $id = ""; my $skip; + local *FH; + $type = ref($self) || $self; open FH, "$file" or Form->error("$file : $!");