From a677ae95fcf54a593c99abec1598b68cf4325f0f Mon Sep 17 00:00:00 2001
From: Emmanuel Seyman <emman...@seyman.fr>
Date: Mon, 1 Apr 2013 14:13:53 +0200
Subject: Commit patch to master
---
perl-BZ-Client-bugzilla-dates.patch | 15 +++++++++++++++
1 file changed, 15 insertions(+)
create mode 100644 perl-BZ-Client-bugzilla-dates.patch
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 );
+ }
+ }
+ }
--
cgit v0.11.2
http://pkgs.fedoraproject.org/cgit/perl-BZ-Client.git/commit/?h=epel7&id=a677ae95fcf54a593c99abec1598b68cf4325f0f
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
