X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FEphMsg.pm;h=3117aabaee61aba69c9d187fffc35e0635b21742;hb=e148ea6b5e9eb73af10a9ca4132bc257e4b9aac8;hp=bf43a334872be9fbede5aebfc5abb56a8284011e;hpb=f6d0b05b25a61cb6d3aa671b7a8f5d4a69817b1c;p=spider.git

diff --git a/perl/EphMsg.pm b/perl/EphMsg.pm
index bf43a334..3117aaba 100644
--- a/perl/EphMsg.pm
+++ b/perl/EphMsg.pm
@@ -18,6 +18,8 @@ use Msg;
 use DXVars;
 use DXUtil;
 use DXDebug;
+use DXTimer;
+
 use IO::File;
 use IO::Socket;
 use IPC::Open3;
@@ -129,7 +131,7 @@ sub _dotimeout
 	dbg("connect $conn->{cnum}: timeout set to $val") if isdbg('connect');
 	$conn->{timeout}->del if $conn->{timeout};
 	$conn->{timeval} = $val;
-	$conn->{timeout} = Timer->new($val, sub{ &_timedout($conn) });
+	$conn->{timeout} = DXTimer->new($val, sub{ &_timedout($conn) });
 }