import sql-ledger 2.4.4

[freeside.git] / sql-ledger / SL / Inifile.pm

diff --git a/sql-ledger/SL/Inifile.pm b/sql-ledger/SL/Inifile.pm
index e9de47a..8ccf433 100644 (file)
--- a/sql-ledger/SL/Inifile.pm
+++ b/sql-ledger/SL/Inifile.pm
@@ -1,6 +1,6 @@
 #=====================================================================
 # SQL-Ledger Accounting
 #=====================================================================
 # SQL-Ledger Accounting

-# Copyright (C) 2001
+# Copyright (C) 2002

 #
 #  Author: Dieter Simader
 #   Email: dsimader@sql-ledger.org
 #
 #  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.
 # 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
 # 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;
   
   my $id = "";
   my $skip;

-  
+
+  $self ||= {};

   $type = ref($self) || $self;
   
   open FH, "$file" or Form->error("$file : $!");
   $type = ref($self) || $self;
   
   open FH, "$file" or Form->error("$file : $!");