X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnection.pm;h=412039510bb872c0dc72d06983cba819fe4b50e5;hp=e47b8fcab073994450d1d37574f891f21bf49c41;hb=5add5e29851e82862e4d8f6d67dfce559f6685ce;hpb=d2eadebbdb4416f421ffd5298c782fdc32f388e7 diff --git a/lib/Object/Remote/Connection.pm b/lib/Object/Remote/Connection.pm index e47b8fc..4120395 100644 --- a/lib/Object/Remote/Connection.pm +++ b/lib/Object/Remote/Connection.pm @@ -16,6 +16,7 @@ use Module::Runtime qw(use_module); use Scalar::Util qw(weaken blessed refaddr openhandle); use JSON::PP qw(encode_json); use Moo; +use Carp qw(croak); BEGIN { router()->exclude_forwarding; @@ -343,7 +344,7 @@ sub _send { my $fh = $self->send_to_fh; unless ($self->is_valid) { - die "Attempt to invoke _send on a connection that is not valid"; + croak "Attempt to invoke _send on a connection that is not valid"; } Dlog_trace { "Starting to serialize data in argument to _send for connection $_" } $self->_id;