verify validity of socket arg in low levelcallback _getMessage

1 files changed, 6 insertions, 0 deletions

diff --git a/Ivy.pm b/Ivy.pm
index 6607d68..bd979ca 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -1461,6 +1461,12 @@ sub _getConnections ($)
 sub _getMessages ($$)
 {
     my ($self, $appSock) = @_;
+
+    unless (defined $appSock) {
+      carp "Warning in Ivy::_getMessages : *UN*inititialized appSock, don't do anything\n" if $^W;
+      return;
+    }
+
     my $bufferRef = \$self->[bufRecByCnnx]{$appSock};
     my ($addr, $peerPort, $senderName);
     my $nlIndex;