quickfix : test validity of addr arg

1 files changed, 5 insertions, 2 deletions

diff --git a/Ivy.pm b/Ivy.pm
index e0c5855..b43c713 100644
--- a/Ivy.pm
+++ b/Ivy.pm
@@ -78,7 +78,7 @@ sub start;		# debut de l'integration au bus :
 		 	# - envoie le "no de port"
 		 	# - bind le file descriptor de la socket de
 			#   supervision a la fonction getBonjour pour
-			#   traiter les 1bonjours
+			#   traiter les bonjours
 		 	# - bind le fd de connection sur la fonction
 			#   getConnections
 			#   pour etablir les connections "application"
@@ -2173,8 +2173,11 @@ sub  _getHostByAddr ($)
   my $addr = shift;
 
   unless (defined $addr) {
-    warn "_getHostByAddr : invalid argument\n";
+    warn "_getHostByAddr : no argument\n";
     return "EMPTY_ADDR";
+  } elsif ((length ($addr)) != 4) {
+    warn "_getHostByAddr : bad argument (len != 4)\n";
+    return "BAD_ADDR";
   }
 
   $hostNameByAddr{$addr} = gethostbyaddr ($addr, AF_INET) || inet_ntoa($addr)