--- deliantra/server/plugins/cfperl/cfperl.xs	2006/02/17 19:36:36	1.23
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/02/25 23:36:58	1.26
@@ -31,7 +31,7 @@
 #undef save_long // clashes with libproto.h
 
 #define PLUGIN_NAME    "perl"
-#define PLUGIN_VERSION "cfperl 0.1"
+#define PLUGIN_VERSION "cfperl 0.2"
 
 #ifndef __CEXTRACT__
 #include <plugin.h>
@@ -194,6 +194,12 @@
 
   switch (type)
     {
+#if 0
+      case CFAPI_INT16:
+        sv = newSViv (*va_arg (args, sint16_t *));
+        break;
+#endif
+
       case CFAPI_INT:
         sv = newSViv (*va_arg (args, int *));
         break;
@@ -1199,7 +1205,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);