100% test coverage
[OpenSRF.git] / src / perl / lib / OpenSRF / Utils / JSON.pm
index 723b779..e88eb1f 100644 (file)
@@ -143,7 +143,7 @@ sub JSONObject2Perl {
             my $class = $obj->{$JSON_CLASS_KEY};
             $class =~ s/^\s+//; # FIXME pretty sure these lines could condense to 's/\s+//g'
             $class =~ s/\s+$//;
-            $class = $pkg->lookup_class($class) || $class;
+            $class = $pkg->lookup_class($class) if $pkg->lookup_class($class);
             return bless(\$vivobj, $class) unless ref $vivobj;
             return bless($vivobj, $class);
         }