--- deliantra/server/plugins/cfperl/cfperl.xs	2006/02/17 19:36:36	1.23
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/02/17 21:10:18	1.24
@@ -1199,7 +1199,13 @@
               }
               break;
             case CFAPI_STRING:
-              cf_object_set_string_property (obj, idx, SvPV_nolen (newval));
+              cf_object_set_string_property (obj, idx, SvOK (newval) ? SvPV_nolen (newval) : 0);
+              break;
+            case CFAPI_POBJECT:
+              {
+                 int unused_type;
+                 object_set_property (&unused_type, obj, idx, (object *)SvPTR_ornull (newval, "cf::object"));
+              }
               break;
             default:
               croak ("unhandled type '%d' in set_property '%d'", type, idx);