From ff62eb3409f5d36a76a3f73611ade803d015bf21 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 14 Mar 2012 11:38:18 -0400 Subject: [PATCH] Prevent undef warnings on perl socket read nbytes test Signed-off-by: Bill Erickson Signed-off-by: Dan Scott --- src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm b/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm index b8a5da1..b68e418 100644 --- a/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm +++ b/src/perl/lib/OpenSRF/Transport/SlimJabber/XMPPReader.pm @@ -226,7 +226,7 @@ sub wait { $first_read = 0; } - if ($nbytes == 0 and $first_read) { + if ($first_read and defined $nbytes and $nbytes == 0) { # if the first read on an active socket is 0 bytes, # the socket has been disconnected from the remote end. $logger->error("Disconnected from Jabber server"); -- 2.43.2