From de66762a733e289983f6a98c1782b7e8626d0d2a Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 22 Aug 2008 12:24:22 +0000
Subject: [PATCH] adding explicit request timeout detection

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1424 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/AppSession.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/perl/lib/OpenSRF/AppSession.pm b/src/perl/lib/OpenSRF/AppSession.pm
index d6bc91a..941e3dd 100644
--- a/src/perl/lib/OpenSRF/AppSession.pm
+++ b/src/perl/lib/OpenSRF/AppSession.pm
@@ -737,6 +737,7 @@ sub recv {
 			$avail = @{ $self->{recv_queue} };
 	}
 
+    $self->timed_out(1) if ( $self->{remaining_recv_timeout} <= 0 );
 
 	my @list;
 	while ( my $msg = shift @{ $self->{recv_queue} } ) {
@@ -751,6 +752,13 @@ sub recv {
 	return @list;
 }
 
+sub timed_out {
+    my $self = shift;
+    my $out = shift;
+    my $self->{timed_out} = $out if (defined $out);
+    return $self->{timed_out};
+}
+
 sub push_resend {
 	my $self = shift;
 	push @OpenSRF::AppSession::_RESEND_QUEUE, @_;
-- 
2.43.2