removed close and alarm calls output of alarm/eval block in check_tcp()

diff --git a/src/spong-network.pl b/src/spong-network.pl
index 4d91b6a61552192a32fd499de498db3a136ba56c..907f76bbf9f1536886ed0a2511c6f4fc6ac8fd34 100755 (executable)
--- a/src/spong-network.pl
+++ b/src/spong-network.pl
@@ -17,7 +17,7 @@
 # (2) Converted checks to new plugin mechanism (Stephen Johnson May 28, 1999)
 #     Added user-configurable escalation mechanism
 #
-# $Id: spong-network.pl,v 1.34 2001/04/17 02:58:12 sljohnson Exp $
+# $Id: spong-network.pl,v 1.35 2001/05/07 19:19:24 sljohnson Exp $
 
 use Carp;
 use lib "@@LIBDIR@@";
@@ -368,10 +368,9 @@ sub check_tcp {
       select((select(SOCK), $| = 1)[0]);
       print SOCK "$data";
       recv( SOCK, $line, 256, 0 );  # just grab a chunk from the service.
-     close( SOCK ) || die "close: $!";
+      alarm(0);
+      close( SOCK ) || die "close: $!";
    };
-   alarm(0);
-   close( SOCK ) || die "close: $!";  # close even if our alarm went off
 
    if ( $@ =~ /^(.*) at/ ) { $err = $1; }
    if ( $@ =~ /timed out/ )  { $err = "check_tcp timed out"; }