--- a/Lib/IMPL/Object/Abstract.pm	Mon Nov 09 01:39:31 2009 +0300
+++ b/Lib/IMPL/Object/Abstract.pm	Mon Nov 09 16:49:39 2009 +0300
@@ -65,13 +65,17 @@
     return (ref $self || $self);
 }
 
-sub DESTROY {
-    if ($MemoryLeakProtection and $Cleanup) {
-        my $this = shift;
-        warn sprintf("Object leaks: %s of type %s %s",$this->can('ToString') ? $this->ToString : $this,ref $this,UNIVERSAL::can($this,'_dump') ? $this->_dump : '');
-    }
+sub isDisposed {
+    0;
 }
 
+#sub DESTROY {
+#    if ($MemoryLeakProtection and $Cleanup) {
+#        my $this = shift;
+#        warn sprintf("Object leaks: %s of type %s %s",$this->can('ToString') ? $this->ToString : $this,ref $this,UNIVERSAL::can($this,'_dump') ? $this->_dump : '');
+#    }
+#}
+
 sub END {
     $Cleanup = 1;
 }