Bufixing

diff --git a/smsd.pl b/smsd.pl
index b852bccc7d71aa6873016bd53f82287d2241aa7a..0746c21e341da49a08dbaffe80619e2c22bbfb68 100755 (executable)
--- a/smsd.pl
+++ b/smsd.pl
@@ -820,6 +820,7 @@ sub perform_send( $ ) {
           print GAMMU $sms->body();
           close( GAMMU ) || error "kid exited $?";
         };
+        alarm 0;
 
         if ( $@ ) {
 
@@ -838,6 +839,7 @@ sub perform_send( $ ) {
           }
 
         }
+        alarm 0;
 
       } else { # child