--- ltspinfo.orig       2005-03-03 16:07:55.000000000 +0000
+++ ltspinfo    2005-11-14 14:55:15.000000000 +0000
@@ -52,8 +52,9 @@
     ( $nfound, $timeleft ) = select( $rout = $rin, undef, undef, $timeout );
     if( $nfound ){
       $bytes = "";
-      defined( my $addr = $socket->recv( $bytes, 32768, 0 ))
-           or die "socket->recv() failed: $!\n";
+      unless (defined( my $addr = $socket->recv( $bytes, 32768, 0 ))) {
+             $total_bytes = "socket->recv() failed: $!\n";
+      }
       $len = length($bytes);
       if( $len ){
         $total_bytes .= $bytes;
@@ -89,10 +90,12 @@

 if( $shutdown ){
   my $rec = get_info( "shutdown" );
+  printf($rec) if ($rec);
 }

 if( $reboot ){
   my $rec = get_info( "reboot" );
+  printf($rec) if ($rec);
 }

 #------------------------------------------------------------------------------