fix xmlout

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index 1bea12c784d38d9bda02e6cbfe1074aebb1a0312..cd8abf5965c4025b412c5956bd69356050db7e5b 100644 (file)
--- 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'};