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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.20 by root, Mon Aug 28 14:05:24 2006 UTC vs.
Revision 1.21 by root, Mon Aug 28 15:48:13 2006 UTC

 void attachable_base::clear ()
 {
   //if (self) fprintf (stderr, "free_ob_self %p %s (%p,%p)\n", this, ((object *)this)->name, self, cb);//D
+  if (self)
+    {
+      hv_clear ((HV *)SvRV ((SV *)self));
+      sv_unmagic (SvRV ((SV *)self), PERL_MAGIC_ext);
-  if (self) SvREFCNT_dec (self);
+      SvREFCNT_dec (self);
+    }
+  if (cb)
+    {
-  if (cb)   SvREFCNT_dec (cb);
+      SvREFCNT_dec (cb);
+      cb = 0;
+    }
+  if (attach)
+    {
-  if (attach) free_string (attach);
+      free_string (attach);
-  self    = 0;
-  cb      = 0;
-  attach  = 0;
+      attach = 0;
+    }
 }
 void attachable_base::optimise ()
 {
   if (!self)

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