Decelerate shutdown process for one second.

When shutting down guardian the function now will pause for
one second to give perl some more time to proper clean up
everything before finally exiting the process.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>

diff --git a/guardian b/guardian
index cf759b04821511c5394567dadf0e28f1e3522d81..2326684ad5935c79950941269ec3c9f0fff1e804 100644 (file)
--- a/guardian
+++ b/guardian
@@ -311,6 +311,11 @@ sub Shutdown () {
        # Remove socket file on exit.
        &Guardian::Socket::RemoveSocketFile();
 
+       # Sleep for one second to give perl some
+       # time to proper clean up everything before
+       # exiting.
+       sleep(1);
+
        # Exit guardian.
        exit;
 }