fix warning if handle is DEMOLISHED after the backing connection is gone

[scpubgit/Object-Remote.git] / lib / Object / Remote / Handle.pm

diff --git a/lib/Object/Remote/Handle.pm b/lib/Object/Remote/Handle.pm
index 7e9c218..e68aae9 100644 (file)
--- a/lib/Object/Remote/Handle.pm
+++ b/lib/Object/Remote/Handle.pm
@@ -86,7 +86,11 @@ sub DEMOLISH {
   my ($self, $gd) = @_;
   Dlog_trace { "Demolishing remote handle $_" } $self->id;
   return if $gd or $self->disarmed_free;
-  $self->connection->send_free($self->id);
+  #this could happen after the connection has gone away
+  eval { $self->connection->send_free($self->id) };
+  if ($@ && $@ !~ m/^Attempt to invoke _send on a connection that is not valid/) {
+    die "Could not invoke send_free on connection for handle " . $self->id;
+  }
 }
 
 1;