diff options
-rw-r--r-- | Ivy.pm | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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) |