test validation script

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/validate.pl b/validate.pl
index 1ffe3bd..1df514b 100644 (file)
--- a/validate.pl
+++ b/validate.pl
@@ -40,7 +40,7 @@ sub fire {
     my $req = Net::HTTP::NB->new(Host => $hostname);
     
     if (!$req) {
-        warn "Unable to connect to $hostname\n";
+        warn "Unable to connect to $hostname : $@\n";
         return 0;
     }