diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm b/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm index daafc1dbaf1..38e0043d7a4 100644 --- a/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm +++ b/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm @@ -508,7 +508,7 @@ sub url { sub ping { my $self = shift; - my $ping = Net::Ping->new("tcp",1); + my $ping = Net::Ping->new($^O eq 'VMS' ? 'icmp' : 'tcp', 1); my ($proto) = $self->url =~ m{^([^:]+)}; my $port = $proto eq 'http' ? 80 : 21; return unless $port; |