fixe shutdown command

diff --git a/Changes b/Changes
index 35e6c9da09529950083e37ef44625e88a8b1b4b1..752149a27325e80188ee0a5c3a3d8f12bef2f863 100644 (file)
--- 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 30592ad0697c751d388611b37261a8445529920a..1bcbcb70ce845341287ed38022d99893119ff357 100644 (file)
--- 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 22163789fb48398b8bf8519e61101882a5f99a03..42a44847aabefdc2d74901d09c041401ea0654ea 100644 (file)
--- 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;