Skip Menu |

This queue is for tickets about the Archive-Zip CPAN distribution.

Report information
The Basics
Id: 19156
Status: open
Priority: 0/
Queue: Archive-Zip

People
Owner: Nobody in particular
Requestors: evan [...] dealermade.com
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 1_11
Fixed in: (no value)



Subject: Not a bitmatch on unzip.
This attached file with the following script, will unzip to a different version than Ubuntu's UnZip. UnZip is correct by function. foreach my $zip ( <*.zip> ) { print "Unzipping $zip"; my $zip = Archive::Zip->new($zip); $zip->extractTree(q//, './images/'); } unzips unproperly. Archive::Zip 323774fca663cb64e6c6f754d23c5dd4 WDBRF40JX4A583651.jpg UnZip 5.52 of 28 February 2005, by Ubuntu. Original by Info-ZIP: 2039fecdcf3143c8e289f76f22c297ef WDBRF40JX4A583651.jpg Newest Archive::Zip Show quoted text
cpan> install Archive::Zip
Going to read /root/.cpan/Metadata Database was generated on Mon, 08 May 2006 21:24:48 GMT Archive::Zip is up to date.
Subject: source.zip
Download source.zip
octet/stream 51.2k

Message body not shown because it is not plain text.

From: Ned Konz
On Mon May 08 18:52:54 2006, guest wrote: Show quoted text
> This attached file with the following script, will unzip to a different > version than Ubuntu's UnZip. UnZip is correct by function. > > foreach my $zip ( <*.zip> ) { > print "Unzipping $zip"; > my $zip = Archive::Zip->new($zip); > $zip->extractTree(q//, './images/'); > } > > unzips unproperly. > Archive::Zip > 323774fca663cb64e6c6f754d23c5dd4 WDBRF40JX4A583651.jpg > > UnZip 5.52 of 28 February 2005, by Ubuntu. Original by Info-ZIP: > 2039fecdcf3143c8e289f76f22c297ef WDBRF40JX4A583651.jpg > > > Newest Archive::Zip
> cpan> install Archive::Zip
> Going to read /root/.cpan/Metadata > Database was generated on Mon, 08 May 2006 21:24:48 GMT > Archive::Zip is up to date.
Don't know if it helps, but it works for me on the Mac... $ mkdir images $ perl test.pl $ crc32 images/WDBRF40JX4A583651.jpg e7069ef3 $ unzip -v source.zip Archive: source.zip Length Method Size Ratio Date Time CRC-32 Name -------- ------ ------- ----- ---- ---- ------ ---- 56897 Defl:N 52302 8% 05-08-06 02:46 e7069ef3 WDBRF40JX4A583651.jpg -------- ------- --- ------- 56897 52302 8% 1 file $ perl -v This is perl, v5.8.8 built for darwin-2level What version of Perl are you using, and what are your PERLIO and locale settings?
Subject: Re: SPAM-LOW: [rt.cpan.org #19156] Not a bitmatch on unzip.
Date: Tue, 09 May 2006 08:56:31 -0500
To: bug-Archive-Zip [...] rt.cpan.org
From: Evan Carroll <evan [...] dealermade.com>
Perl is v5.8.7 PerlIO is v.1.03 unzip evan@dealermade:/cron/puente/troubleshoot$ crc32 ./WDBRF40JX4A583651.jpg e7069ef3 Archive::Zip evan@dealermade:/cron/puente/troubleshoot/images$ crc32 ./WDBRF40JX4A583651.jpg ace03cec via RT wrote: Show quoted text
> <URL: http://rt.cpan.org/Ticket/Display.html?id=19156 > > > On Mon May 08 18:52:54 2006, guest wrote:
>> This attached file with the following script, will unzip to a different >> version than Ubuntu's UnZip. UnZip is correct by function. >> >> foreach my $zip ( <*.zip> ) { >> print "Unzipping $zip"; >> my $zip = Archive::Zip->new($zip); >> $zip->extractTree(q//, './images/'); >> } >> >> unzips unproperly. >> Archive::Zip >> 323774fca663cb64e6c6f754d23c5dd4 WDBRF40JX4A583651.jpg >> >> UnZip 5.52 of 28 February 2005, by Ubuntu. Original by Info-ZIP: >> 2039fecdcf3143c8e289f76f22c297ef WDBRF40JX4A583651.jpg >> >> >> Newest Archive::Zip
>> cpan> install Archive::Zip
>> Going to read /root/.cpan/Metadata >> Database was generated on Mon, 08 May 2006 21:24:48 GMT >> Archive::Zip is up to date.
> > Don't know if it helps, but it works for me on the Mac... > > $ mkdir images > $ perl test.pl > $ crc32 images/WDBRF40JX4A583651.jpg > e7069ef3 > $ unzip -v source.zip > Archive: source.zip > Length Method Size Ratio Date Time CRC-32 Name > -------- ------ ------- ----- ---- ---- ------ ---- > 56897 Defl:N 52302 8% 05-08-06 02:46 e7069ef3 > WDBRF40JX4A583651.jpg > -------- ------- --- ------- > 56897 52302 8% 1 file > $ perl -v > > This is perl, v5.8.8 built for darwin-2level > > > What version of Perl are you using, and what are your PERLIO and locale > settings? > > >
WORKSFORME I extracted the image with WinZip, saved it, and added a regression test which makes sure the behaviour of Archive::Zip extracts the identical file. See 10_regression.t in the next 1.17_04 release.
Adam, can I close this bug? Regards, Shlomi Fish
Subject: Re: [rt.cpan.org #19156] Not a bitmatch on unzip.
Date: Fri, 23 Nov 2007 08:54:29 +1100
To: bug-Archive-Zip [...] rt.cpan.org
From: "Adam Kennedy" <adamkennedybackup [...] gmail.com>
If that test is there to pick up failures when CPAN Testers catches it, yup On 23/11/2007, Shlomi Fish via RT <bug-Archive-Zip@rt.cpan.org> wrote: Show quoted text
> > > Queue: Archive-Zip > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=19156 > > > Adam, can I close this bug? > > Regards, > > Shlomi Fish >
On Thu Nov 22 16:54:51 2007, adamkennedybackup@gmail.com wrote: Show quoted text
> If that test is there to pick up failures when CPAN Testers catches
it, yup Show quoted text
>
Well, I don't see this test script anywhere inside the repository's history: {{{{{{{{{ shlomi:~/progs/perl/cpan/Archive-Zip/trunk/Archive-Zip$ svn up At revision 2438. shlomi:~/progs/perl/cpan/Archive-Zip/trunk/Archive-Zip$ svn log -v . > svn.log shlomi:~/progs/perl/cpan/Archive-Zip/trunk/Archive-Zip$ cat svn.log | grep regres Fixing some bugs in the new regression tests shlomi:~/progs/perl/cpan/Archive-Zip/trunk/Archive-Zip$ }}}}}}}}} Where is it? Regards, Shlomi Fish Show quoted text
> > On 23/11/2007, Shlomi Fish via RT <bug-Archive-Zip@rt.cpan.org>
wrote: Show quoted text
> > > > > > Queue: Archive-Zip > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=19156 > > > > > Adam, can I close this bug? > > > > Regards, > > > > Shlomi Fish > >