[interchange-cvs] interchange - heins modified lib/Vend/Accounting/SQL_Ledger.pm

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2002-06-28 18:52:46 GMT
Modified:  lib/Vend/Accounting SQL_Ledger.pm
Log:
* Prevent problems on calls with no options.

Revision  Changes    Path
1.2       +1 -1      interchange/lib/Vend/Accounting/SQL_Ledger.pm


rev 1.2, prev_rev 1.1
Index: SQL_Ledger.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Accounting/SQL_Ledger.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- SQL_Ledger.pm	11 Jun 2002 20:30:58 -0000	1.1
+++ SQL_Ledger.pm	28 Jun 2002 18:52:45 -0000	1.2
@@ -56,7 +56,7 @@
     my $class = shift;
 	my $opt = shift;
 
-	if(ref($opt) ne 'HASH') {
+	if($opt and ref($opt) ne 'HASH') {
 		my $tmp = $opt;
 		$opt = { $tmp, @_ };
 	}