added debug statement for parsing of server spec

diff --git a/src/lib/Spong/Status.pm b/src/lib/Spong/Status.pm
index d37f31b4aa03661e8845376fcde897aa47ff1e6e..978d17881e52ad38666fca034509381d4f3b080c 100755 (executable)
--- 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);