--- deliantra/server/plugins/cfperl/cfperl.xs	2006/02/03 07:51:14	1.2
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/02/03 16:26:15	1.3
@@ -283,9 +283,12 @@
   va_start (args, type);
   propname = va_arg (args, char *);
   //printf ("Property name: %s\n", propname);
-
+ 
   if (!strcmp (propname, "command?"))
     {
+      if (!perl)
+        return NULL;
+
       const char *cmdname = va_arg (args, const char *);
       HV *hv = get_hv ("cf::COMMAND", 1);
       SV **svp = hv_fetch (hv, cmdname, strlen (cmdname) + 1, 0);