--- deliantra/server/include/cfperl.h	2006/09/04 13:55:54	1.23
+++ deliantra/server/include/cfperl.h	2006/09/10 14:54:02	1.25
@@ -101,10 +101,22 @@
     attachable_clear ();
   }
 
+  ~attachable_base ()
+  {
+     clear ();
+  }
+
   attachable_base (const attachable_base &src)
   : self (0), cb (0), attach (src.attach)
   {
   }
+
+  attachable_base &operator = (const attachable_base &src)
+  {
+     clear ();
+     attach = src.attach;
+     return *this;
+  }
 };
 
 // objects attachable from perl (or any other extension) should include or