--- lib/BZ/Client/XMLRPC/Value.pm +++ lib/BZ/Client/XMLRPC/Value.pm @@ -71,7 +71,11 @@ sub end($$) { $self->{'level1_content'} = undef; $self->{'level1_elem'} = undef; if ("dateTime.iso8601" eq $name) { - $self->{'result'} = DateTime::Format::ISO8601->parse_datetime( $self->{'result'} ); + my $val = $self->{'result'}; + if ($val =~ /(\d\d\d\d)(\d\d)(\d\d)(T\d\d:\d\d:\d\d)/) { + $val = "$1-$2-$3$4"; + } + $self->{'result'} = DateTime::Format::ISO8601->parse_datetime( $val ); } } }