[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.248 by root, Thu Sep 6 06:53:08 2007 UTC vs.
Revision 1.249 by root, Thu Sep 6 07:00:05 2007 UTC

 }
 object *
 object::deref (const char *ref)
 {
-  object *retval;
+  object *retval = 0;
+  if (ref)
+    {
-  CALL_BEGIN (1);
+      CALL_BEGIN (1);
-  CALL_ARG (ref);
+      CALL_ARG (ref);
-  CALL_CALL ("cf::object::deref", G_SCALAR);
+      CALL_CALL ("cf::object::deref", G_SCALAR);
-  if (count)
+      if (count)
-    sv_to (POPs, retval);
+        sv_to (POPs, retval);
-  else
-    retval = 0;
-  CALL_END;
+      CALL_END;
+    }
   return retval;
 }
 void

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines