From 74884d7fef7497c2f3c482c98b7cbd919376a6d7 Mon Sep 17 00:00:00 2001
From: Matthew Musgrove <mr.muskrat@gmail.com>
Date: Fri, 8 Aug 2014 14:17:13 -0500
Subject: [PATCH] Update Ping.pm

Fix RT# 97884 <https://rt.cpan.org/Ticket/Display.html?id=97884>
---
 lib/Net/Ping.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/Ping.pm b/lib/Net/Ping.pm
index ee74a8f..b3633fe 100644
--- a/lib/Net/Ping.pm
+++ b/lib/Net/Ping.pm
@@ -367,7 +367,7 @@ sub ping
       );
 
   croak("Usage: \$p->ping(\$host [, \$timeout])") unless @_ == 2 || @_ == 3;
-  $timeout = $self->{"timeout"} unless $timeout;
+  $timeout = $self->{"timeout"} unless defined $timeout;
   croak("Timeout must be greater than 0 seconds") if $timeout <= 0;
 
   $ip = inet_aton($host);