From 3c6694242819ce0ca3586264080342315d420cc8 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 11 Jan 2006 21:14:01 +0000 Subject: [PATCH] fix xmlout --- perl/DXXml.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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'}; -- 2.43.0