From: minima Date: Wed, 11 Jan 2006 21:14:01 +0000 (+0000) Subject: fix xmlout X-Git-Tag: 1.53~87 X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;ds=sidebyside;h=3c6694242819ce0ca3586264080342315d420cc8;p=spider.git fix xmlout --- 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'};