Attachment 716637 Details for Bug 927999 – Fix

[patch] Fix

BZ-Client-1.04-Noncompliant-ISO-8601-date.patch (text/plain), 1.19 KB, created by Petr Pisar on 2013-03-26 16:30:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2013-03-26 16:30:01 UTC

Size: 1.19 KB

patch

obsolete

>From 3dd62e5447503537ff97cd64fe1ecdf1086647cb Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <petr.pisar@atlas.cz>
>Date: Sat, 23 Mar 2013 20:23:29 +0100
>Subject: [PATCH] Noncompliant ISO-8601 date
>
>XML RPC allows YYYYMMDDTHH::MM:SS format.
>
><https://rt.cpan.org/Public/Bug/Display.html?id=78467>
><https://bugzilla.mozilla.org/show_bug.cgi?id=550618>
>---
> lib/BZ/Client/XMLRPC/Value.pm | 6 +++++-
> 1 file changed, 5 insertions(+), 1 deletion(-)
>
>diff --git a/lib/BZ/Client/XMLRPC/Value.pm b/lib/BZ/Client/XMLRPC/Value.pm
>index 6f28f58..6610263 100755
>--- a/lib/BZ/Client/XMLRPC/Value.pm
>+++ b/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 );
>             }            
>         }
>     }
>-- 
>1.8.1.5
>

Actions: View | Diff

Attachments on bug 927999: 716637