Bug #56026 for MIME-Base64:

Sun Mar 28 11:33:44 2010 midi [...] cpan.org - Ticket created

A decoding with MIME::Base64::decode_base64($data) returns a broken GZ- File with the attached file (export-test.csv.gz.base64). With the command /usr/bin/base64 no problems, GZ-File are not corrupt.

Subject:

export-test.csv.gz.base64

Download export-test.csv.gz.base64
application/octet-stream 363.8k

Message body not shown because it is not plain text.

Sun Mar 28 11:34:51 2010 midi [...] cpan.org - Status changed from 'new' to 'open'

Sun Mar 28 11:36:08 2010 midi [...] cpan.org - Correspondence added

Am So 28. Mär 2010, 11:33:44, MIDI schrieb: Show quoted text

> A decoding with MIME::Base64::decode_base64($data) returns a broken GZ- > File with the attached file (export-test.csv.gz.base64). > > With the command /usr/bin/base64 no problems, GZ-File are not corrupt.

I forgot to tell: With smaller files i never had any problems.

Sun Mar 28 11:46:12 2010 midi [...] cpan.org - Correspondence added

Am So 28. Mär 2010, 11:33:44, MIDI schrieb: Show quoted text

> A decoding with MIME::Base64::decode_base64($data) returns a broken GZ- > File with the attached file (export-test.csv.gz.base64). > > With the command /usr/bin/base64 no problems, GZ-File are not corrupt.

Btw: $data contains the total data of the file (372,602 bytes). When i call MIME::Base64::decode_base64() for every line of the file, there is no problem. So it seems to me, that the size of the file is too large to convert at once.

Sun Mar 28 17:35:55 2010 GAAS [...] cpan.org - Correspondence added

Can't repoduce any problem here. I tried to decode the provided export-test.csv.gz.base64 with this script and 'gunzip' is perfectly happy to decode it for me. #!/usr/bin/perl use MIME::Base64 qw(decode_base64); print decode_base64(join("", <>));

Mon Mar 29 11:13:53 2010 midi [...] cpan.org - Correspondence added

Am So 28. Mär 2010, 17:35:55, GAAS schrieb: Show quoted text

> Can't repoduce any problem here. I tried to decode the provided > export-test.csv.gz.base64 > with this script and 'gunzip' is perfectly happy to decode it for me. > > #!/usr/bin/perl > use MIME::Base64 qw(decode_base64); > print decode_base64(join("", <>));

Sorry Gisle, my fail! My script used $data and that comes over a HTTP-POST with the module CGI and it looks, that something went wrong processing it... But i´m sure that i have tested it yesterday...hmmm...

Mon Mar 29 11:14:47 2010 midi [...] cpan.org - Status changed from 'open' to 'resolved'