[rpms/perl-BZ-Client] epel10: Commit patch to master

[rpms/perl-BZ-Client] epel10: Commit patch to master

[Emmanuel Seyman]

A new commit has been pushed.

Repo   : rpms/perl-BZ-Client
Branch : epel10
Commit : a677ae95fcf54a593c99abec1598b68cf4325f0f
Author : Emmanuel Seyman <emmanuel@seyman.fr>
Date   : 2013-04-01T14:13:53+02:00
Stats  : +15/-0 in 1 file(s)
URL    : https://src.fedoraproject.org/rpms/perl-BZ-Client/c/a677ae95fcf54a593c99abec1598b68cf4325f0f?branch=epel10

Log:
Commit patch to master

---
diff --git a/perl-BZ-Client-bugzilla-dates.patch b/perl-BZ-Client-bugzilla-dates.patch
new file mode 100644
index 0000000..f8c6fe1
--- /dev/null
+++ b/perl-BZ-Client-bugzilla-dates.patch
@@ -0,0 +1,15 @@
+--- 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 );
+             }            
+         }
+     }