Bug correction for unbinding messages

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Ivy.pm b/src/Ivy.pm
index d03ac1f..5d3b598 100644
--- a/src/Ivy.pm
+++ b/src/Ivy.pm
@@ -842,7 +842,7 @@ sub _sendWantedRegexp ($)
 
     # on envoie les regexps
     for (my $id = 0; $id <= $#recCbList; $id++) {
-	next unless defined $recCbList[$id] ;
+	next unless defined $recCbList[$id]->[1]->[0];
 	send ($appSock , 
 	      sprintf (MSG_FMT, REGEXP, $id, $recCbList[$id]->[0]),
 	      0) or _removeFileDescriptor ($appSock) ;