X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=cd8abf5965c4025b412c5956bd69356050db7e5b;hb=7f8810e2112b1fa4a68472c265a71906e7dcccd3;hp=1bea12c784d38d9bda02e6cbfe1074aebb1a0312;hpb=f942dabdab73e5841f16ead2a41a52d6b5b05eb8;p=spider.git

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index 1bea12c7..cd8abf59 100644
--- a/perl/DXXml.pm
+++ b/perl/DXXml.pm
@@ -119,10 +119,10 @@ sub toxml
 
 	unless (exists $self->{'-xml'}) {
 		$self->{o} ||= $main::mycall;
-		$self->{t} ||= IsoTime::dayms();
+		$self->{t} ||= IsoTime::dayminsec();
 		$self->{id} ||= nextid();
 		
-		my ($name) = ref $self =~ /::(\w+)$/;
+		my ($name) = (ref $self) =~ /::(\w+)$/;
 		$self->{'-xml'} = $xs->XMLout($self, RootName =>lc $name, NumericEscape=>1);
 	}
 	return $self->{'-xml'};