fix nasty timer bug

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 8a02bfd376adf9110afd20a77363c0f740af1083..6ac7a3fb907265f6bb92dbedd29d599d9d2c1662 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -100,7 +100,7 @@ sub already_conn
        
        dbg('chan', "-> D $call $mess\n"); 
        $conn->send_now("D$call|$mess");
-       Msg->sleep(2);
+       sleep(2);
        $conn->disconnect;
 }