Hello community,
here is the log from the commit of package perl-Archive-Zip for
openSUSE:Factory checked in at 2016-08-09 22:14:07
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Archive-Zip (Old)
and /work/SRC/openSUSE:Factory/.perl-Archive-Zip.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Archive-Zip"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Archive-Zip/perl-Archive-Zip.changes
2016-04-11 09:11:39.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Archive-Zip.new/perl-Archive-Zip.changes
2016-08-09 22:14:14.000000000 +0200
@@ -1,0 +2,10 @@
+Wed Aug 3 05:02:36 UTC 2016 - co...@suse.com
+
+- updated to 1.58
+ see /usr/share/doc/packages/perl-Archive-Zip/Changes
+
+ 1.58 Tue 2 Aug 2016
+ - avoid relying on . being in @INC [github/karenetheridge]
+ - update MANIFEST.SKIP [github/haarg]
+
+-------------------------------------------------------------------
Old:
----
Archive-Zip-1.57.tar.gz
New:
----
Archive-Zip-1.58.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Archive-Zip.spec ++++++
--- /var/tmp/diff_new_pack.iPn7rp/_old 2016-08-09 22:14:15.000000000 +0200
+++ /var/tmp/diff_new_pack.iPn7rp/_new 2016-08-09 22:14:15.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Archive-Zip
-Version: 1.57
+Version: 1.58
Release: 0
%define cpan_name Archive-Zip
Summary: Provide an interface to ZIP archive files
@@ -75,6 +75,6 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes examples
+%doc Changes examples README.md
%changelog
++++++ Archive-Zip-1.57.tar.gz -> Archive-Zip-1.58.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/Changes new/Archive-Zip-1.58/Changes
--- old/Archive-Zip-1.57/Changes 2016-04-01 19:54:36.000000000 +0200
+++ new/Archive-Zip-1.58/Changes 2016-08-02 19:46:53.000000000 +0200
@@ -1,5 +1,9 @@
Revision history for Perl extension Archive-Zip
+1.58 Tue 2 Aug 2016
+ - avoid relying on . being in @INC [github/karenetheridge]
+ - update MANIFEST.SKIP [github/haarg]
+
1.57 Fri 1 Apr 2016
- RT# 106548,106089,105330,111541 [github/ozcoder]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/MANIFEST
new/Archive-Zip-1.58/MANIFEST
--- old/Archive-Zip-1.57/MANIFEST 2016-04-01 19:59:03.000000000 +0200
+++ new/Archive-Zip-1.58/MANIFEST 2016-08-02 19:48:41.000000000 +0200
@@ -32,6 +32,8 @@
lib/Archive/Zip/ZipFileMember.pm
Makefile.PL
MANIFEST This list of files
+MANIFEST.SKIP
+README.md
script/crc32
t/01_compile.t
t/02_main.t
@@ -56,6 +58,7 @@
t/21_zip64.t
t/22_deflated_dir.t
t/23_closed_handle.t
+t/24_unicode_win32.t
t/badjpeg/expected.jpg
t/badjpeg/source.zip
t/common.pm
@@ -65,17 +68,18 @@
t/data/crypt.zip
t/data/def.zip
t/data/defstr.zip
-t/data/good_github11.zip
-t/data/jar.zip
-t/data/store.zip
-t/data/storestr.zip
+t/data/empty.zip
t/data/emptydef.zip
t/data/emptydefstr.zip
t/data/emptystore.zip
t/data/emptystorestr.zip
+t/data/good_github11.zip
+t/data/jar.zip
t/data/linux.zip
t/data/mkzip.pl
t/data/perl.zip
+t/data/store.zip
+t/data/storestr.zip
t/data/streamed.zip
t/data/winzip.zip
t/data/zip64.zip
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/MANIFEST.SKIP
new/Archive-Zip-1.58/MANIFEST.SKIP
--- old/Archive-Zip-1.57/MANIFEST.SKIP 1970-01-01 01:00:00.000000000 +0100
+++ new/Archive-Zip-1.58/MANIFEST.SKIP 2016-08-02 19:46:53.000000000 +0200
@@ -0,0 +1,34 @@
+^\.travis.yml$
+^\.git.*
+^Makefile$
+\.old$
+\.bak$
+^MYMETA\..*
+
+\bblib/
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$
+
+~$
+\#$
+\b\.#
+\.tmp$
+\.#
+\.rej$
+\..*\.sw.?$
+
+\B\.DS_Store
+\B\._
+
+\bcover_db\b
+\bcovered\b
+
+\B\.prove$
+
+^test\.log$
+^testdir/
+^extracted/
+^testin\.zip$
+^testout\.zip$
+^test2\.zip$
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/META.json
new/Archive-Zip-1.58/META.json
--- old/Archive-Zip-1.57/META.json 2016-04-01 19:59:03.000000000 +0200
+++ new/Archive-Zip-1.58/META.json 2016-08-02 19:48:41.000000000 +0200
@@ -4,7 +4,7 @@
"Ned Konz <p...@bike-nomad.com>"
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter
version 2.142060",
+ "generated_by" : "ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter
version 2.142060",
"license" : [
"perl_5"
],
@@ -54,5 +54,5 @@
"url" : "https://github.com/redhotpenguin/perl-Archive-Zip-svn";
}
},
- "version" : "1.57"
+ "version" : "1.58"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/META.yml
new/Archive-Zip-1.58/META.yml
--- old/Archive-Zip-1.57/META.yml 2016-04-01 19:59:03.000000000 +0200
+++ new/Archive-Zip-1.58/META.yml 2016-08-02 19:48:41.000000000 +0200
@@ -8,7 +8,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter version
2.142060'
+generated_by: 'ExtUtils::MakeMaker version 7.1, CPAN::Meta::Converter version
2.142060'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -33,4 +33,4 @@
perl: '5.006'
resources:
repository: https://github.com/redhotpenguin/perl-Archive-Zip-svn
-version: '1.57'
+version: '1.58'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/README.md
new/Archive-Zip-1.58/README.md
--- old/Archive-Zip-1.57/README.md 1970-01-01 01:00:00.000000000 +0100
+++ new/Archive-Zip-1.58/README.md 2015-09-21 20:53:50.000000000 +0200
@@ -0,0 +1,58 @@
+# Archive-Zip
+
+The Archive::Zip module allows a Perl program to create, manipulate, read,
+and write Zip archive files.
+
+See https://metacpan.org/pod/Archive::Zip for more information.
+
+
+# INSTALLATION
+
+To install this module, run the following commands:
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+
+# SUPPORT AND DOCUMENTATION
+
+After installing, you can find documentation for this module with the
+perldoc command.
+
+ perldoc Archive::Zip
+
+
+# SUPPORT
+
+Bugs should be reported via the CPAN bug tracker
+
+http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Archive-Zip
+
+For other issues contact the maintainer
+
+
+# AUTHOR
+
+Currently maintained by Fred Moyer <f...@redhotpenguin.com>
+
+Previously maintained by Adam Kennedy <ad...@cpan.org>
+
+Previously maintained by Steve Peters <st...@fisharerojo.org>.
+
+File attributes code by Maurice Aubrey <maur...@lovelyfilth.com>.
+
+Originally by Ned Konz <nedk...@cpan.org>.
+
+
+# COPYRIGHT
+
+Some parts copyright 2006 - 2012 Adam Kennedy.
+
+Some parts copyright 2005 Steve Peters.
+
+Original work copyright 2000 - 2004 Ned Konz.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/Archive.pm
new/Archive-Zip-1.58/lib/Archive/Zip/Archive.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/Archive.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/Archive.pm 2016-08-02
19:46:53.000000000 +0200
@@ -14,7 +14,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw( Archive::Zip );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Archive-Zip-1.57/lib/Archive/Zip/BufferedFileHandle.pm
new/Archive-Zip-1.58/lib/Archive/Zip/BufferedFileHandle.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/BufferedFileHandle.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/BufferedFileHandle.pm 2016-08-02
19:46:53.000000000 +0200
@@ -13,7 +13,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
$VERSION = eval $VERSION;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/DirectoryMember.pm
new/Archive-Zip-1.58/lib/Archive/Zip/DirectoryMember.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/DirectoryMember.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/DirectoryMember.pm 2016-08-02
19:46:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw( Archive::Zip::Member );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/FileMember.pm
new/Archive-Zip-1.58/lib/Archive/Zip/FileMember.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/FileMember.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/FileMember.pm 2016-08-02
19:46:53.000000000 +0200
@@ -4,7 +4,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw ( Archive::Zip::Member );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/Member.pm
new/Archive-Zip-1.58/lib/Archive/Zip/Member.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/Member.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/Member.pm 2016-08-02
19:46:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw( Archive::Zip );
if ($^O eq 'MSWin32') {
@@ -650,7 +650,7 @@
# Note, this is not exactly UTC 1980, it's 1980 + 12 hours and 1
# minute so that nothing timezoney can muck us up.
-my $safe_epoch = 315576060;
+my $safe_epoch = 31.586060;
# convert a unix time to DOS date/time
# NOT AN OBJECT METHOD!
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/MemberRead.pm
new/Archive-Zip-1.58/lib/Archive/Zip/MemberRead.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/MemberRead.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/MemberRead.pm 2016-08-02
19:46:53.000000000 +0200
@@ -40,7 +40,7 @@
my $nl;
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
$VERSION = eval $VERSION;
# Requirement for newline conversion. Should check for e.g., DOS and OS/2 as
well, but am too lazy.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/MockFileHandle.pm
new/Archive-Zip-1.58/lib/Archive/Zip/MockFileHandle.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/MockFileHandle.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/MockFileHandle.pm 2016-08-02
19:46:53.000000000 +0200
@@ -10,7 +10,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
$VERSION = eval $VERSION;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/NewFileMember.pm
new/Archive-Zip-1.58/lib/Archive/Zip/NewFileMember.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/NewFileMember.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/NewFileMember.pm 2016-08-02
19:46:53.000000000 +0200
@@ -4,7 +4,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw ( Archive::Zip::FileMember );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/StringMember.pm
new/Archive-Zip-1.58/lib/Archive/Zip/StringMember.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/StringMember.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/StringMember.pm 2016-08-02
19:46:53.000000000 +0200
@@ -4,7 +4,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw( Archive::Zip::Member );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/Tree.pm
new/Archive-Zip-1.58/lib/Archive/Zip/Tree.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/Tree.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/Tree.pm 2016-08-02
19:46:53.000000000 +0200
@@ -4,7 +4,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
}
use Archive::Zip;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip/ZipFileMember.pm
new/Archive-Zip-1.58/lib/Archive/Zip/ZipFileMember.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip/ZipFileMember.pm 2016-04-01
19:55:02.000000000 +0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip/ZipFileMember.pm 2016-08-02
19:46:53.000000000 +0200
@@ -4,7 +4,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
@ISA = qw ( Archive::Zip::FileMember );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/lib/Archive/Zip.pm
new/Archive-Zip-1.58/lib/Archive/Zip.pm
--- old/Archive-Zip-1.57/lib/Archive/Zip.pm 2016-04-01 19:55:02.000000000
+0200
+++ new/Archive-Zip-1.58/lib/Archive/Zip.pm 2016-08-02 19:46:53.000000000
+0200
@@ -14,7 +14,7 @@
use vars qw( $VERSION @ISA );
BEGIN {
- $VERSION = '1.57';
+ $VERSION = '1.58';
require Exporter;
@ISA = qw( Exporter );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/02_main.t
new/Archive-Zip-1.58/t/02_main.t
--- old/Archive-Zip-1.57/t/02_main.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/02_main.t 2016-08-02 19:46:53.000000000 +0200
@@ -16,7 +16,8 @@
use Test::More tests => 141;
-use t::common;
+use lib 't';
+use common;
#####################################################################
# Testing Utility Functions
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/03_ex.t
new/Archive-Zip-1.58/t/03_ex.t
--- old/Archive-Zip-1.57/t/03_ex.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/03_ex.t 2016-08-02 19:46:53.000000000 +0200
@@ -11,7 +11,8 @@
use IO::File;
use Test::More tests => 17;
-use t::common;
+use lib 't';
+use common;
sub runPerlCommand {
my $libs = join(' -I', @INC);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/04_readmember.t
new/Archive-Zip-1.58/t/04_readmember.t
--- old/Archive-Zip-1.57/t/04_readmember.t 2015-12-02 20:17:51.000000000
+0100
+++ new/Archive-Zip-1.58/t/04_readmember.t 2016-08-02 19:46:53.000000000
+0200
@@ -10,7 +10,8 @@
use Archive::Zip::MemberRead;
use Test::More tests => 10;
-use t::common;
+use lib 't';
+use common;
use constant FILENAME => File::Spec->catfile(TESTDIR, 'member_read.zip');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/05_tree.t
new/Archive-Zip-1.58/t/05_tree.t
--- old/Archive-Zip-1.57/t/05_tree.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/05_tree.t 2016-08-02 19:46:53.000000000 +0200
@@ -13,7 +13,8 @@
use File::Spec;
use Test::More tests => 6;
-use t::common;
+use lib 't';
+use common;
use constant FILENAME => File::Spec->catfile(TESTDIR, 'testing.txt');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/06_update.t
new/Archive-Zip-1.58/t/06_update.t
--- old/Archive-Zip-1.57/t/06_update.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/06_update.t 2016-08-02 19:46:53.000000000 +0200
@@ -14,7 +14,8 @@
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use Test::More tests => 12;
-use t::common;
+use lib 't';
+use common;
my ($testFileVolume, $testFileDirs, $testFileName) = File::Spec->splitpath($0);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/07_filenames_of_0.t
new/Archive-Zip-1.58/t/07_filenames_of_0.t
--- old/Archive-Zip-1.57/t/07_filenames_of_0.t 2015-12-02 20:17:51.000000000
+0100
+++ new/Archive-Zip-1.58/t/07_filenames_of_0.t 2016-08-02 19:46:53.000000000
+0200
@@ -18,7 +18,8 @@
use File::Path;
use File::Spec;
-use t::common;
+use lib 't';
+use common;
mkpath([File::Spec->catdir(TESTDIR, 'folder')]);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/08_readmember_record_sep.t
new/Archive-Zip-1.58/t/08_readmember_record_sep.t
--- old/Archive-Zip-1.57/t/08_readmember_record_sep.t 2015-12-02
20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/08_readmember_record_sep.t 2016-08-02
19:46:53.000000000 +0200
@@ -17,7 +17,8 @@
plan(tests => 13);
$nl = $^O eq 'MSWin32' ? "\r\n" : "\n";
}
-use t::common;
+use lib 't';
+use common;
# normalize newlines for the platform we are running on
sub norm_nl($) { local $_ = shift; s/\r?\n/$nl/g; return $_; }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/10_chmod.t
new/Archive-Zip-1.58/t/10_chmod.t
--- old/Archive-Zip-1.57/t/10_chmod.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/10_chmod.t 2016-08-02 19:46:53.000000000 +0200
@@ -11,7 +11,8 @@
use File::Path;
use Archive::Zip;
-use t::common;
+use lib 't';
+use common;
sub get_perm {
my $filename = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/14_leading_separator.t
new/Archive-Zip-1.58/t/14_leading_separator.t
--- old/Archive-Zip-1.57/t/14_leading_separator.t 2015-12-02
20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/14_leading_separator.t 2016-08-02
19:46:53.000000000 +0200
@@ -20,7 +20,8 @@
use Cwd ();
use File::Spec ();
-use t::common;
+use lib 't';
+use common;
my $file_relative_path = File::Spec->catfile(TESTDIR, 'file.txt');
open FH, ">$file_relative_path";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/17_101092.t
new/Archive-Zip-1.58/t/17_101092.t
--- old/Archive-Zip-1.57/t/17_101092.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/17_101092.t 2016-08-02 19:46:53.000000000 +0200
@@ -8,7 +8,8 @@
}
use Test::More tests => 2;
-use t::common;
+use lib 't';
+use common;
# RT #101092: Creation of non-standard streamed zip file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/18_bug_92205.t
new/Archive-Zip-1.58/t/18_bug_92205.t
--- old/Archive-Zip-1.57/t/18_bug_92205.t 2015-12-02 20:17:51.000000000
+0100
+++ new/Archive-Zip-1.58/t/18_bug_92205.t 2016-08-02 19:46:53.000000000
+0200
@@ -8,7 +8,8 @@
}
use Test::More tests => 32;
-use t::common;
+use lib 't';
+use common;
use Archive::Zip qw( :CONSTANTS );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/19_bug_101240.t
new/Archive-Zip-1.58/t/19_bug_101240.t
--- old/Archive-Zip-1.57/t/19_bug_101240.t 2015-12-02 20:17:51.000000000
+0100
+++ new/Archive-Zip-1.58/t/19_bug_101240.t 2016-08-02 19:46:53.000000000
+0200
@@ -12,7 +12,8 @@
use File::Path;
use Archive::Zip qw(:CONSTANTS);
-use t::common;
+use lib 't';
+use common;
#101240: Possible issue with zero length files on Win32 when UNICODE is enabled
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/20_bug_github11.t
new/Archive-Zip-1.58/t/20_bug_github11.t
--- old/Archive-Zip-1.57/t/20_bug_github11.t 2015-12-02 20:17:51.000000000
+0100
+++ new/Archive-Zip-1.58/t/20_bug_github11.t 2016-08-02 19:46:53.000000000
+0200
@@ -9,7 +9,8 @@
use Archive::Zip qw( :ERROR_CODES );
use File::Spec;
use File::Path;
-use t::common;
+use lib 't';
+use common;
use Test::More tests => 2;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/21_zip64.t
new/Archive-Zip-1.58/t/21_zip64.t
--- old/Archive-Zip-1.57/t/21_zip64.t 2015-12-02 20:17:51.000000000 +0100
+++ new/Archive-Zip-1.58/t/21_zip64.t 2016-08-02 19:46:53.000000000 +0200
@@ -7,7 +7,8 @@
use Archive::Zip qw( :ERROR_CODES );
use File::Spec;
-use t::common;
+use lib 't';
+use common;
use Test::More tests => 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/22_deflated_dir.t
new/Archive-Zip-1.58/t/22_deflated_dir.t
--- old/Archive-Zip-1.57/t/22_deflated_dir.t 2015-12-02 20:17:51.000000000
+0100
+++ new/Archive-Zip-1.58/t/22_deflated_dir.t 2016-08-02 19:46:53.000000000
+0200
@@ -5,7 +5,8 @@
use Archive::Zip qw( :ERROR_CODES );
use File::Spec;
-use t::common;
+use lib 't';
+use common;
use Test::More tests => 4;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Archive-Zip-1.57/t/24_unicode_win32.t
new/Archive-Zip-1.58/t/24_unicode_win32.t
--- old/Archive-Zip-1.57/t/24_unicode_win32.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Archive-Zip-1.58/t/24_unicode_win32.t 2016-08-02 19:46:53.000000000
+0200
@@ -0,0 +1,155 @@
+#!/usr/bin/perl
+
+# tests with $Archive::Zip::UNICODE
+use utf8; #utf8 source code
+use strict;
+
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+use Test::More;
+use Archive::Zip;
+
+use File::Temp;
+use File::Path;
+use File::Spec;
+
+use lib 't';
+use common;
+
+#Initialy written for MSWin32 only, but I found a bug in memberNames() so
+# other systems should be tested too.
+#if( $^O ne 'MSWin32' ) {
+# plan skip_all => 'Test relevant only on MSWin32';
+# done_testing();
+# exit;
+#}
+
+$Archive::Zip::UNICODE=1;
+
+mkpath([File::Spec->catdir(TESTDIR, 'folder')]);
+my $euro_filename = "euro-€";
+my $zero_file = File::Spec->catfile(TESTDIR, 'folder', $euro_filename);
+open(EURO, ">$zero_file");
+print EURO "File EURO\n";
+close(EURO);
+
+# create member called $euro_filename with addTree
+{
+ my $archive = Archive::Zip->new;
+ $archive->addTree(File::Spec->catfile(TESTDIR, 'folder'), 'folder',);
+
+ #TEST
+ is_deeply(
+ [ $archive->memberNames()],
+ [ "folder/", "folder/$euro_filename" ],
+ "Checking that a file named with unicode chars was added properly"
+ );
+
+}
+
+# create member called $euro_filename with addString
+{
+ # Create member $euro_filename with addString
+ my $archive = Archive::Zip->new;
+ my $string_member = $archive->addString(TESTSTRING => $euro_filename);
+ $archive->writeToFileNamed(OUTPUTZIP);
+}
+#TEST
+{
+ # Read member $euro_filename
+ my $archive = Archive::Zip->new;
+ is($archive->read(OUTPUTZIP), Archive::Zip::AZ_OK);
+ is_deeply(
+ [$archive->memberNames()],
+ [$euro_filename],
+ "Checking that a file named with unicode chars was added properly by
addString");
+}
+unlink(OUTPUTZIP);
+
+{
+ # Create member called $euro_filename with addFile
+ # use a temp file so it's name doesn't match internal name
+ my $tmp_file = File::Temp->new;
+ $tmp_file->print("File EURO\n");
+ $tmp_file->flush;
+ my $archive = Archive::Zip->new;
+ my $string_member = $archive->addFile($tmp_file->filename =>
$euro_filename);
+ $archive->writeToFileNamed(OUTPUTZIP);
+}
+#TEST
+{
+ # Read member $euro_filename
+ my $archive = Archive::Zip->new;
+ is($archive->read(OUTPUTZIP), Archive::Zip::AZ_OK);
+ is_deeply(
+ [$archive->memberNames()],
+ [$euro_filename],
+ "Checking that a file named with unicode chars was added properly by
addFile");
+}
+unlink(OUTPUTZIP);
+
+{
+ # Create member called $euro_filename with addDirectory
+ my $archive = Archive::Zip->new;
+ my $string_member = $archive->addDirectory(
+ File::Spec->catdir(TESTDIR, 'folder') => $euro_filename);
+ $archive->writeToFileNamed(OUTPUTZIP);
+}
+#TEST
+{
+ # Read member $euro_filename
+ my $archive = Archive::Zip->new;
+ is($archive->read(OUTPUTZIP), Archive::Zip::AZ_OK);
+ is_deeply(
+ [$archive->memberNames()],
+ [$euro_filename.'/'],
+ "Checking that a file named with unicode chars was added properly by
addDirectory");
+}
+unlink(OUTPUTZIP);
+
+{
+ # Create member called $euro_filename with addFileOrDirectory from a
directory
+ my $archive = Archive::Zip->new;
+ my $string_member = $archive->addFileOrDirectory(
+ File::Spec->catdir(TESTDIR, 'folder') => $euro_filename);
+ $archive->writeToFileNamed(OUTPUTZIP);
+}
+#TEST
+{
+ # Read member $euro_filename
+ my $archive = Archive::Zip->new;
+ is($archive->read(OUTPUTZIP), Archive::Zip::AZ_OK);
+ is_deeply(
+ [$archive->memberNames()],
+ [$euro_filename.'/'],
+ "Checking that a file named with unicode chars was added properly by
addFileOrDirectory from a direcotry");
+}
+unlink(OUTPUTZIP);
+
+{
+ # Create member called $euro_filename with addFileOrDirectory from a file
+ # use a temp file so it's name doesn't match internal name
+ my $tmp_file = File::Temp->new;
+ $tmp_file->print("File EURO\n");
+ $tmp_file->flush;
+ my $archive = Archive::Zip->new;
+ my $string_member = $archive->addFileOrDirectory(
+ $tmp_file->filename => $euro_filename);
+ $archive->writeToFileNamed(OUTPUTZIP);
+}
+#TEST
+{
+ # Read member $euro_filename
+ my $archive = Archive::Zip->new;
+ is($archive->read(OUTPUTZIP), Archive::Zip::AZ_OK);
+ is_deeply(
+ [$archive->memberNames()],
+ [$euro_filename],
+ "Checking that a file named with unicode chars was added properly by
addFileOrDirectory from a file");
+}
+unlink(OUTPUTZIP);
+
+rmtree([File::Spec->catdir(TESTDIR, 'folder')]);
+done_testing();
\ No newline at end of file
Files old/Archive-Zip-1.57/t/data/empty.zip and
new/Archive-Zip-1.58/t/data/empty.zip differ
