Skip Menu |
 

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

Report information
The Basics
Id: 98553
Status: resolved
Priority: 0/
Queue: Archive-Zip

People
Owner: Nobody in particular
Requestors: delta [...] lackas.net
Cc: lackas [...] invicro.com
AdminCc:

Bug Information
Severity: Normal
Broken in:
  • 1.31_01
  • 1.31_02
  • 1.31_03
  • 1.31_04
  • 1.32
  • 1.33
  • 1.34
  • 1.35
  • 1.36
  • 1.37
Fixed in: (no value)



CC: lackas [...] invicro.com
Subject: Using $Archive::Zip::UNICODE = 1 leads to warnings or errors when trying to extract data.
Download (untitled) / with headers
text/plain 1.1k
Here is an example script running on a Linux system: -------------------------------------------------- #!/bin/env perl use strict; use warnings; use Archive::Zip; use utf8; my $zip = Archive::Zip->new; local $Archive::Zip::UNICODE = 1; my $member; $member = $zip->addFile('/etc/passwd', 'pässwörd☃-1.txt'); # $member->{bitFlag} |= 0x0800; $zip->writeToFileNamed("out.zip"); __END__ giving these warnings when run: Wide character in print at /opt/invicro/lib/perl5/5.16.2/x86_64-linux/IO/Handle.pm line 417. Wide character in print at /opt/invicro/lib/perl5/5.16.2/x86_64-linux/IO/Handle.pm line 417. And (more importantly) resulting in this warning when trying to extract: $ unzip -t out.zip Archive: out.zip file #1 (p?ssw?rd?-1.txt): mismatch between local and central GPF bit 11 ("UTF-8"), continuing with central flag (IsUTF8 = 1) testing: p?ssw?rd?-1.txt OK At least one warning-error was detected in out.zip. Tools such as 7zip even completely refuse to extract such archives (see for instance http://sourceforge.net/p/sevenzip/discussion/45797/thread/75827792?page=3). Enabling the $member->{bitFlag} |= 0x0800; line seem to avoid the issue.
Subject: Re: [rt.cpan.org #98553] Using $Archive::Zip::UNICODE = 1 leads to warnings or errors when trying to extract data.
Date: Tue, 2 Sep 2014 14:10:38 -0700
To: bug-Archive-Zip [...] rt.cpan.org
From: Fred Moyer <fred [...] redhotpenguin.com>
Download (untitled) / with headers
text/plain 349b
Thanks - release coming later today. On Tue, Sep 2, 2014 at 2:10 PM, Christian Lackas via RT <bug-Archive-Zip@rt.cpan.org> wrote: Show quoted text


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.