From: Bill Erickson <berick@esilibrary.com>
Date: Tue, 7 Aug 2012 15:36:41 +0000 (-0400)
Subject: test validation script
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=dd6500daf9953b22703ec275d7319b4c6bbaafd9;p=evergreen%2Fequinox.git

test validation script

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

diff --git a/validate.pl b/validate.pl
index 1ffe3bd8c4..1df514b0bc 100644
--- 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;
     }