X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=sql-ledger%2FSL%2FInifile.pm;h=8ccf4334d93e2e4f8fed1ac6e4b28f9f9b6a5dd7;hp=e9de47a8f746fa4bc01b8a79d7f2d4aa1ab552f0;hb=32306b5f8ffe4ce594409aa6e89626740b225a39;hpb=52072fcd26f2faf57923f598c358e7f47c4e2643

diff --git a/sql-ledger/SL/Inifile.pm b/sql-ledger/SL/Inifile.pm
index e9de47a8f..8ccf4334d 100644
--- a/sql-ledger/SL/Inifile.pm
+++ b/sql-ledger/SL/Inifile.pm
@@ -1,6 +1,6 @@
 #=====================================================================
 # SQL-Ledger Accounting
-# Copyright (C) 2001
+# Copyright (C) 2002
 #
 #  Author: Dieter Simader
 #   Email: dsimader@sql-ledger.org
@@ -12,7 +12,7 @@
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.
-# 
+#
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
@@ -35,7 +35,8 @@ sub new {
   
   my $id = "";
   my $skip;
-  
+
+  $self ||= {};
   $type = ref($self) || $self;
   
   open FH, "$file" or Form->error("$file : $!");