From ee9b8e76793f80e13f6979f53fee10b803469eca Mon Sep 17 00:00:00 2001
From: Stephen L Johnson <sjohnson@monsters.org>
Date: Tue, 29 Aug 2000 18:13:33 +0000
Subject: [PATCH] added debug statement for parsing of server spec

---
 src/lib/Spong/Status.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/lib/Spong/Status.pm b/src/lib/Spong/Status.pm
index d37f31b..978d178 100755
--- a/src/lib/Spong/Status.pm
+++ b/src/lib/Spong/Status.pm
@@ -84,6 +84,8 @@ sub SendMsg {
       my($host, $p ) = split /:/,$server;
       $p = $port if (! $p);               # Default to $port if no port
 
+      main::debug("Status.pm: host $host, port $p",7);
+
       # Set an alarm on this block in case we run into problem talking to
       # the spong server.
       eval 
@@ -99,7 +101,7 @@ sub SendMsg {
                                    );
 
          if ( ! defined $sock ) {
-            die "$@";
+            die "server: $server - $@";
          }
 
          $sock->autoflush(1);
-- 
2.30.2