Feel free to add :) Cheers, Barbie.
-- Birmingham.pm - http://birmingham.pm.org CPAN Testers - http://cpantesters.org YAPC Surveys - http://yapc-surveys.org Perl Jam - http://perljam.info On Fri, Mar 14, 2014 at 8:06 AM, Alexandr Ciornii <alexcho...@gmail.com>wrote: > Hello > > Some time ago my Internet provider suddenly started to provide a page for > unresolved domains. I know that such response is incorrect, but I > cannot do anything about it (I wrote to them, but got no response). So > I wrote this code for Net::Ping::External to check and propose to add > it to the cpantesters wiki as advice for module authors: > > sub inexistent_domain_do_not_resolve { > use Socket; > return 1 unless inet_aton('some.non.existent.host.'); > return 0; > } > #returns 1 if works correctly > > if (inexistent_domain_do_not_resolve()) { > } > > -- > Alexandr Ciornii, http://chorny.net >