From ad0c015e9582b8fdd36defbfc629f810255c38aa Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Wed, 13 Mar 2013 20:28:11 -0500 Subject: [PATCH] Update Net-Ping to 2.39. --- dist/Net-Ping/lib/Net/Ping.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dist/Net-Ping/lib/Net/Ping.pm b/dist/Net-Ping/lib/Net/Ping.pm index a7adf21..850359c 100644 --- a/dist/Net-Ping/lib/Net/Ping.pm +++ b/dist/Net-Ping/lib/Net/Ping.pm @@ -16,7 +16,7 @@ use Carp; @ISA = qw(Exporter); @EXPORT = qw(pingecho); -$VERSION = "2.38"; +$VERSION = "2.39"; sub SOL_IP { 0; }; sub IP_TOS { 1; }; @@ -1374,6 +1374,8 @@ sub close delete $self->{"syn"}; } elsif ($self->{"proto"} eq "tcp") { # The connection will already be closed + } elsif ($self->{"proto"} eq "external") { + # Nothing to close } else { $self->{"fh"}->close(); } -- 2.7.4