This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Net-Ping to 2.39.
authorSteve Peters <steve@fisharerojo.org>
Thu, 14 Mar 2013 01:28:11 +0000 (20:28 -0500)
committerSteve Peters <steve@fisharerojo.org>
Thu, 14 Mar 2013 01:28:11 +0000 (20:28 -0500)
dist/Net-Ping/lib/Net/Ping.pm

index a7adf21..850359c 100644 (file)
@@ -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();
   }