From 6b904a6db275029dd6d7a5cf0a48c1f0770ea8c2 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 17 Jun 2014 23:02:06 +0100
Subject: [PATCH] fixe shutdown command

---
 Changes         | 1 +
 cmd/shutdown.pl | 3 +--
 perl/Version.pm | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 35e6c9da..752149a2 100644
--- a/Changes
+++ b/Changes
@@ -6,6 +6,7 @@
 3. Added some usable code to show/wx (finally).
 4. Make stats cmds (sh/v?hfstats, sh/v?hftable) non-blocking.
 5. Make sh/isolate, sh/registered, sh/lockout non-blocking.
+6. Fix shutdown command.
 16Jun14=======================================================================
 1. Get AsyncMsg working for HTTP type ephemeral connections
 21Apr14=======================================================================
diff --git a/cmd/shutdown.pl b/cmd/shutdown.pl
index 30592ad0..1bcbcb70 100644
--- a/cmd/shutdown.pl
+++ b/cmd/shutdown.pl
@@ -11,7 +11,6 @@ foreach $ref (DXChannel::get_all()) {
 	$ref->send($self->msg('shutting')) if $ref->is_user;
 }
     
-# give some time for the buffers to empty and then shutdown (see cluster.pl)
-$main::decease = 25;
+main::cease();
 
 return (1);
diff --git a/perl/Version.pm b/perl/Version.pm
index 22163789..42a44847 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -10,7 +10,7 @@ package main;
 use vars qw($version $build $gitversion);
 
 $version = '1.57';
-$build = '29';
-$gitversion = '761aaa7';
+$build = '30';
+$gitversion = 'a76624e';
 
 1;
-- 
2.43.0