X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FHandle.pm;h=de25a6ce6ead2be8be8affff3a022dfe56535fcc;hp=7e9c21870d976037e7fbe02799ea344dc1851d9c;hb=8c3529062a426181861d58ee59fb8f10e0be68e5;hpb=5add5e29851e82862e4d8f6d67dfce559f6685ce diff --git a/lib/Object/Remote/Handle.pm b/lib/Object/Remote/Handle.pm index 7e9c218..de25a6c 100644 --- a/lib/Object/Remote/Handle.pm +++ b/lib/Object/Remote/Handle.pm @@ -4,10 +4,6 @@ use Object::Remote::Proxy; use Scalar::Util qw(weaken blessed); use Object::Remote::Logging qw ( :log :dlog router ); use Object::Remote::Future; -#must find way to exclude certain log events -#from being forwarded - log events generated in -#response to log events cause exploding -#use Object::Remote::Logging qw(:log); use Module::Runtime qw(use_module); use Moo; @@ -86,7 +82,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;