Est-il possible d'écraser ou d'obtenir gethostbyname de monkey-patch en Perl pour qu'il prenne en charge IPv6?

Question

J'ai un application which uses Perl's gethostbyname to check if a hostname exists in DNS donné. Je ne veux pas patcher le code source de cette application non écrite par moi. Mais je pense à écraser gethostbyname dans l'un des fichiers de configuration écrits en Perl.

Alors je me demande s'il y a une chance d'écraser cette fonction en la corrigeant d'une manière ou d'une autre.

Le documentation of that application says that its hostname lookups work as follows:

$ perl -e 'print(gethostbyname("ipv6.google.com") ? "ok\n" : "not found\n");' 
not found 

Jusqu'à présent, j'essayé:

$ perl -E 'use Socket qw(:DEFAULT getaddrinfo); sub gethostbyname { my ($err, @result) = getaddrinfo(@_); return @result; }; print(gethostbyname("ipv6.google.com") ? "ok\n" : "not found\n");' 
not found 

Et:

$ perl -E 'use Socket qw(:DEFAULT getaddrinfo); use Monkey::Patch::Action qw(patch_package); patch_package("*", "gethostbyname", "add", sub { my ($err, @result) = getaddrinfo(@_); return @result; }); print(gethostbyname("ipv6.google.com") ? "ok\n" : "not found\n");' 
not found 

(j'ai aussi essayé main au lieu de * et replace au lieu de add.renflouées comme suit: Replacing *::gethostbyname: must already exist at /usr/share/perl5/Monkey/Patch/Action.pm line 31.)

Answer 1

TL, TR: Cela ne veut pas expliquer comment remplacer gethostbyname (les commentaires existants devraient aider à le faire), mais plutôt d'expliquer que cela ne résout pas votre problème réel de faire de ce code spécifique IPv6 prêt .

---

Premièrement, que devrait être un IPv6 prêt gethostbyname? Avec IPv4, il renvoie une adresse IPv4 compressée et cela est attendu par le code appelant gethostbyname. Ce code sera généralement suivi par l'utilisation de sockaddr_in, PF_INET sockets etc. Mais avec IPv6 ce code doit utiliser et PF_INET6 ce qui signifie qu'il ne suffit pas de corriger gethostbyname.

Et, en regardant plus loin dans le code, vous devez corriger cela est en fait le cas. Vous avez juste lié dans votre question à un appel de gethostbyname qui vérifie seulement s'il renvoie une valeur définie. Mais si vous regardez further in the code vous verrez l'utilisation explicite de inet_aton, PF_INET sockets etc., c'est-à-dire tout ce qui suppose des adresses IPv4 seulement.