X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FExtMsg.pm;h=74a2cfcd0dc8ea0c18956b005574899930ad91f2;hb=dc0193176be801c10a342dd7a2b2263cf0059c88;hp=064bd90af487df88730f7cd8b465115e1f1042c8;hpb=cbb522ef802d48991734a4ce803fa6ffa9774588;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 064bd90a..74a2cfcd 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -19,6 +19,8 @@ use Msg;
 use DXVars;
 use DXUtil;
 use DXDebug;
+use DXTimer;
+
 use IO::File;
 use IO::Socket;
 use IPC::Open3;
@@ -302,7 +304,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) });
 }
 
 sub _dolineend