Decelerate shutdown process for one second.

[people/stevee/guardian.git] / guardian

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;
 }