moved alarm(0) statement to inside eval statement where it belongs

diff --git a/src/lib/Spong/Status.pm b/src/lib/Spong/Status.pm
index 37fafc863e8fa9f14fa4c0f6b534690296a258b4..8df6cfd645d45b78827955f5fc4b124b066ea43b 100755 (executable)
--- a/src/lib/Spong/Status.pm
+++ b/src/lib/Spong/Status.pm
@@ -42,6 +42,7 @@ sub status {
 
    # Set an alarm on this block in case we run into problem talking to
    # the spong server.
+   eval 
    {
       local $SIG{'ALRM'} = sub { die; };
       alarm(30);
@@ -52,9 +53,9 @@ sub status {
 
       undef $sock;
       $ok = 1;
-   }
+      alarm(0);
+   };
 
-   alarm(0);
    warn scalar(localtime) . " can't connect to spong server.\n" if ! $ok;
 }
 
@@ -76,6 +77,7 @@ sub event {
 
    # Set an alarm on this block in case we run into problem talking to
    # the spong server.
+   eval
    {
       local $SIG{'ALRM'} = sub { die; };
       alarm(30);
@@ -86,9 +88,9 @@ sub event {
 
       undef $sock;
       $ok = 1;
-   }
+      alarm(0);
+   };
 
-   alarm(0);
    warn scalar(localtime) . " can't connect to spong server.\n" if ! $ok;
 }
 
@@ -110,6 +112,7 @@ sub page {
 
    # Set an alarm on this block in case we run into problem talking to
    # the spong server.
+   eval 
    {
       local $SIG{'ALRM'} = sub { die; };
       alarm(30);
@@ -120,9 +123,9 @@ sub page {
 
       undef $sock;
       $ok = 1;
-   }
+      alarm(0);
+   };
 
-   alarm(0);
    warn scalar(localtime) . " can't connect to spong server.\n" if ! $ok;
 }