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

Attachments
Flickr-Upload-1.28-gzipped-response.patch



Subject: fails to parse the answer after the upload succeeds (perl 5.10)
Download (untitled) / with headers
text/plain 679b
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
Download (untitled) / with headers
text/plain 272b
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.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.