X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=9d0a59698170c153a5db6ec4ab77ac124012c878;hb=a253a7d3820e9fb58bca0c2633ba958778ad4c52;hp=c40e3be041ff91c9f468dae81eae238e63b38aba;hpb=082d020e6964f4b822d287980740bc3d787f3685;p=spider.git

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index c40e3be0..9d0a5969 100644
--- a/perl/DXXml.pm
+++ b/perl/DXXml.pm
@@ -190,7 +190,7 @@ sub toxml
 
 	unless (exists $self->{'-xml'}) {
 		$self->{o} ||= $main::mycall;
-		$self->{t} ||= IsoTime::dayminsec();
+		$self->{t} ||= IsoTime::hourminsec();
 		$self->{id} ||= nextid();
 		
 		my ($name) = (ref $self) =~ /::(\w+)$/;