Skip Menu |

This queue is for tickets about the Flickr-Upload CPAN distribution.

Report information
The Basics
Id: 33750
Status: resolved
Priority: 0/
Queue: Flickr-Upload

People
Owner: Nobody in particular
Requestors: pterjan [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.29
Fixed in: 1.30



Subject: fails to parse the answer after the upload succeeds (perl 5.10)
There is an error when getting the result, meaning that only one photo can be uploaded at a time (and that the term often gets corrupted) : [pterjan@plop 2008-03-01--10.15.12]$ flickr_upload IMG_2148.JPG Uploading IMG_2148.JPG...junk '=ËMƒ @á=§ ³W¢Œ&üœ¥A┌ˆ™6=·]¹≠É÷┌ø/ùM±Ëµ8À^L%Ö5—§ƒoÝ 2xaÏö–ì îp5çž'ΫGÔfÖKG'2jT‰CÊ·┴¸·/þù:O·┼ ' ␉␊°⎺⎼␊ XML ␊┌␊└␊┼├ [⎻├␊⎼┘▒┼@⎻┌⎺⎻ 2008-03-01--10.15.12]$ This is under Mandriva Cooker, using perl 5.10 and perl-XML-Parser-Lite-Tree 0.03
From: pterjan [...] gmail.com
Here is a patch that fixes the problem for me
--- Upload.pm 2007-06-19 01:27:23.000000000 +0200 +++ Upload.pm 2008-03-08 13:30:15.000000000 +0100 @@ -293,13 +293,13 @@ my $res = $self->request( $req ); - my $tree = XML::Parser::Lite::Tree::instance()->parse($res->content()); + my $tree = XML::Parser::Lite::Tree::instance()->parse($res->decoded_content()); return () unless defined $tree; my $photoid = response_tag($tree, 'rsp', 'photoid'); my $ticketid = response_tag($tree, 'rsp', 'ticketid'); unless( defined $photoid or defined $ticketid ) { - print STDERR "upload failed:\n", $res->content(), "\n"; + print STDERR "upload failed:\n", $res->decoded_content(), "\n"; return undef; }
From: cpb [...] cpan.org
On Sat Mar 08 07:34:53 2008, pterjan wrote: Show quoted text
> Here is a patch that fixes the problem for me
Thanks. That looks about right, although I still can't reproduce this problem on my system(s) (running Debian testing, which hasn't picked up 5.10). 1.30 is in the queue now.