--- 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 );
}
}
}