SF.net SVN: ledger-smb:[4499] trunk/LedgerSMB/DBObject.pm

[..hidden..]

Revision: 4499
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4499&view=rev
Author:   einhverfr
Date:     2012-03-17 03:09:39 +0000 (Sat, 17 Mar 2012)
Log Message:
-----------
Minor fix for DBObject to allow code consolidation

Modified Paths:
--------------
    trunk/LedgerSMB/DBObject.pm

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2012-03-17 03:07:35 UTC (rev 4498)
+++ trunk/LedgerSMB/DBObject.pm	2012-03-17 03:09:39 UTC (rev 4499)
@@ -72,7 +72,8 @@
     else {
         @mergelist = ();
     }
-    if ( !$base->isa('LedgerSMB') ) {
+    if ( !$base->isa('LedgerSMB') and !$base->isa('LedgerSMB::DBObject_Moose') 
+    ) {
         $self->error("Constructor called without LedgerSMB object arg");
     }
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.