[Bps-public-commit] r15458 - in IPC-PubSub: lib/IPC/PubSub

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Aug 25 20:04:55 2008
New Revision: 15458

Modified:
   IPC-PubSub/   (props changed)
   IPC-PubSub/lib/IPC/PubSub/Publisher.pm

Log:
 r36409 at kohr-ah:  chmrr | 2008-08-25 20:02:18 -0400
  * Destruction order can trip us up sometimes; error-proof it


Modified: IPC-PubSub/lib/IPC/PubSub/Publisher.pm
==============================================================================
--- IPC-PubSub/lib/IPC/PubSub/Publisher.pm	(original)
+++ IPC-PubSub/lib/IPC/PubSub/Publisher.pm	Mon Aug 25 20:04:55 2008
@@ -58,6 +58,7 @@
 no warnings 'redefine';
 sub DESTROY {
     my $self = shift;
+    return unless $self->_cache;
     $self->_cache->remove_publisher($_, $self->_cache) for $self->channels;
 }