"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Makefile.PL" between
Net-DNS-1.23.tar.gz and Net-DNS-1.23_01.tar.gz

About: Net::DNS is a DNS resolver implemented in Perl. Development version.

Makefile.PL  (Net-DNS-1.23):Makefile.PL  (Net-DNS-1.23_01)
# #
# $Id: Makefile.PL 1761 2020-01-01 11:58:34Z willem $ -*-perl-*- # $Id: Makefile.PL 1781 2020-05-13 08:58:25Z willem $ -*-perl-*-
# #
use strict; use strict;
use warnings; use warnings;
use Getopt::Long; use Getopt::Long;
use ExtUtils::MakeMaker; use ExtUtils::MakeMaker;
use constant MM => eval $ExtUtils::MakeMaker::VERSION; use constant MM => eval $ExtUtils::MakeMaker::VERSION;
# See perldoc ExtUtils::MakeMaker for details of how to influence # See perldoc ExtUtils::MakeMaker for details of how to influence
# the contents of the Makefile that is written. # the contents of the Makefile that is written.
skipping to change at line 41 skipping to change at line 41
my $platform = $platform{$^O} || {}; my $platform = $platform{$^O} || {};
my %prerequisite = ( my %prerequisite = (
'Digest::HMAC' => 1.03, 'Digest::HMAC' => 1.03,
'Digest::MD5' => 2.13, 'Digest::MD5' => 2.13,
'Digest::SHA' => 5.23, 'Digest::SHA' => 5.23,
'File::Spec' => 0.86, 'File::Spec' => 0.86,
'IO::File' => 1.08, 'IO::File' => 1.08,
'IO::Select' => 1.14, 'IO::Select' => 1.14,
'IO::Socket' => 1.26,
'IO::Socket::IP' => 0.38, 'IO::Socket::IP' => 0.38,
'MIME::Base64' => 2.13, 'MIME::Base64' => 2.13,
'PerlIO' => 1.05, 'PerlIO' => 1.05,
'Scalar::Util' => 1.25, 'Scalar::Util' => 1.25,
'Time::Local' => 1.19, 'Time::Local' => 1.19,
'Test::More' => 0.52, 'Test::More' => 0.52,
%$platform %$platform
); );
my %optional = ( my %optional = (
skipping to change at line 66 skipping to change at line 67
## PROHIBITED OR SEVERELY RESTRICTED IN MANY TERRITORIES. ## PROHIBITED OR SEVERELY RESTRICTED IN MANY TERRITORIES.
delete $prerequisite{'Net::DNS::SEC'}; ## MUST NOT list Net::DNS::SEC dependency in metadata. delete $prerequisite{'Net::DNS::SEC'}; ## MUST NOT list Net::DNS::SEC dependency in metadata.
delete $optional{'Net::DNS::SEC'}; ## Require explicit user action to instal l Net::DNS::SEC. delete $optional{'Net::DNS::SEC'}; ## Require explicit user action to instal l Net::DNS::SEC.
my @debris = qw( my @debris = qw(
.resolv.conf *.lock .resolv.conf *.lock
t/IPv6.enabled t/IPv6.enabled
t/online.enabled t/online.nonfatal t/online.enabled t/online.nonfatal
); );
use constant USE_SOCKET_IP => defined eval 'use IO::Socket::IP 0.32; 1'; use constant USE_SOCKET_IP => defined eval 'use IO::Socket::IP 0.38; 1';
use constant INET_FALLBACK => !USE_SOCKET_IP && eval 'require IO::Socket::INET'; use constant INET_FALLBACK => !USE_SOCKET_IP && eval 'require IO::Socket::INET';
# clean up existing makefile # clean up existing makefile
unlink('Makefile'); unlink('Makefile');
WriteMakefile( ## Makefile & distribution metadata WriteMakefile( ## Makefile & distribution metadata
%metadata, %metadata,
PREREQ_PM => {%prerequisite}, PREREQ_PM => {%prerequisite},
META_MERGE => {recommends => {%optional}}, META_MERGE => {recommends => {%optional}},
clean => {FILES => "@debris"}, clean => {FILES => "@debris"},
skipping to change at line 141 skipping to change at line 142
exit 0; exit 0;
} }
# #
# Check if we have internet connection (code lifted from LWP) # Check if we have internet connection (code lifted from LWP)
# #
if ($online_tests) { if ($online_tests) {
my $class = USE_SOCKET_IP ? 'IO::Socket::IP' : 'IO::Socket::INET'; my $class = USE_SOCKET_IP ? 'IO::Socket::IP' : 'IO::Socket::INET';
my $socket = $class->new( my $socket = $class->new(
PeerAddr => "www.google.com:80", PeerAddr => 'dns.google.',
Timeout => 20 PeerPort => 53, ## check 53/TCP not blocked ##
Timeout => 10
); );
unless ($socket) { unless ($socket) {
$online_tests = 0; $online_tests = 0;
print <<EOT; print <<"EOT";
Unable to establish TCP/IP connection to the global Internet.
$@
You appear not to be directly connected to the Internet.
Disabling online tests altogether... Disabling online tests altogether...
EOT EOT
} }
} }
if ($online_tests) { if ($online_tests) {
my $enable = 't/online.enabled'; my $enable = 't/online.enabled';
open( ENABLED, ">$enable" ) || die "Can't touch $enable $!"; open( ENABLED, ">$enable" ) || die "Can't touch $enable $!";
close(ENABLED) || die "Can't touch $enable $!"; close(ENABLED) || die "Can't touch $enable $!";
 End of changes. 6 change blocks. 
6 lines changed or deleted 10 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)