[open-ils-commits] r8972 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-11 13:27:41 -0400 (Tue, 11 Mar 2008)
New Revision: 8972

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
Log:
only test type if we have an object

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 17:21:35 UTC (rev 8971)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/PermaCrud.pm	2008-03-11 17:27:41 UTC (rev 8972)
@@ -62,7 +62,7 @@
     my $e = new_editor(authtoken => $auth, xact => 1);
     return $e->event unless $e->checkauth;
 
-    unless ($obj->json_hint eq $self->{class_hint}) {
+    if (ref($obj) && $obj->json_hint ne $self->{class_hint}) {
         throw OpenSRF::DomainObject::oilsException->new(
             statusCode => 500,
             status => "Class missmatch: $self->{class_hint} method called with " . $obj->json_hint,