X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f3d322cfd7776bebb922f3cd390bd62e4f5baf09..ba863fd67776403dcf9de6b1141509a48a4b7204:/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 : $!");