Show quoted text> > a) third alternative in definition of REGEXP_IPv4_DECIMAL in
> > Socket.pm is 1?[0-9]{1,2} -- shouldn't this be [01]?[0-9]{1,2}
>
> I'm not sure I can see why. Can you give an example of an address
> which would matter?
007 :-)
(well, the current RE allows 07, so it should allow 007 also - but maybe you're sure that no leading zeroes get tested and that's why i named it "remark" :-)
Show quoted text> > b) test "$err == 0 for 127.0.0.1/80/flags=AI_NUMERICHOST" (in
> > getaddrinfo.t), new in 2.014, fails on my box, running "perl 5,
> > version 18, subversion 1 (v5.18.1) built for mips3-n32":
> >
> > # Failed test '$err == 0 for 127.0.0.1/80/flags=AI_NUMERICHOST'
> > # at t/getaddrinfo.t line 106.
> > # $err is Servname not supported for ai_socktype
>
> Well,... boo. :( What OS is that?
that's good ol' IRIX...
Show quoted text> Maybe it needs the ai_socktype hint
> to be set to something, or else it won't reply.
>
> Can you try it out? Pass something like
> socktype => SOCK_STREAM
> in the hints.
this helps, thanks
diff a/Socket-2.014/t/getaddrinfo.t b/Socket-2.014/t/getaddrinfo.t
105c105
< ( $err, @res ) = getaddrinfo( "127.0.0.1", 80, { flags => AI_NUMERICHOST } );
---
Show quoted text> ( $err, @res ) = getaddrinfo( "127.0.0.1", 80, { flags => AI_NUMERICHOST, socktype => SOCK_STREAM } );
