@@ -1,17 +1,18 @@
+# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v5.031.
use strict;
use warnings;
-use Module::Build 0.3601;
+use Module::Build 0.28;
my %module_build_args = (
"build_requires" => {
- "Module::Build" => "0.3601"
+ "Module::Build" => "0.28"
},
"configure_requires" => {
- "ExtUtils::MakeMaker" => "6.30",
- "Module::Build" => "0.3601"
+ "ExtUtils::MakeMaker" => 0,
+ "Module::Build" => "0.28"
},
"dist_abstract" => "Single interface to deal with file archives.",
"dist_author" => [
@@ -20,7 +21,7 @@ my %module_build_args = (
"Olaf Alders (current maintainer)"
],
"dist_name" => "Archive-Any",
- "dist_version" => "0.0941",
+ "dist_version" => "0.0942",
"license" => "perl",
"module_name" => "Archive::Any",
"recommends" => {},
@@ -45,17 +46,16 @@ my %module_build_args = (
);
+my %fallback_build_requires = (
+ "Module::Build" => "0.28",
+ "Test::More" => 0,
+ "Test::Warn" => 0
+);
+
+
unless ( eval { Module::Build->VERSION(0.4004) } ) {
- my $tr = delete $module_build_args{test_requires};
- my $br = $module_build_args{build_requires};
- for my $mod ( keys %$tr ) {
- if ( exists $br->{$mod} ) {
- $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
- }
- else {
- $br->{$mod} = $tr->{$mod};
- }
- }
+ delete $module_build_args{test_requires};
+ $module_build_args{build_requires} = \%fallback_build_requires;
}
my $build = Module::Build->new(%module_build_args);
@@ -4,7 +4,10 @@
This is the (likely incomplete) list of people who have helped
make this distribution what it is, either via code contributions,
patches, bug reports, help with troubleshooting, etc. A huge
-thank to all of them.
+'thank you' to all of them.
+
+ * Olaf Alders
+ * Philippe Bruhat (BooK)
+ * unknown
+
- * Olaf Alders <olaf@wundersolutions.com>
- * unknown <unknown>
@@ -1,3 +1,7 @@
+0.0942 2015-01-28 17:07:43 America/Toronto
+ - Replaces contents of archives in test folder with random noise in order
+ to avoid any licensing issues. (Philippe Bruhat (BooK))
+
0.0941 2013-11-06 21:38:55 America/Toronto
- Fixes version number in lib/Archive/Any.pm
- Previous release had broken permissions.
@@ -1,4 +1,3 @@
-
This is the Perl distribution Archive-Any.
Installing Archive-Any is straightforward.
@@ -25,16 +24,16 @@ Alternatively, if your CPAN shell is set up, you should just be able to do:
As a last resort, you can manually install it. Download the tarball, untar it,
then build it:
- % perl Makefile.PL
- % make && make test
+ % perl Build.PL
+ % ./Build && ./Build test
Then install it:
- % make install
+ % ./Build install
If you are installing into a system-wide directory, you may need to run:
- % sudo make install
+ % sudo ./Build install
## Documentation
@@ -1,4 +1,4 @@
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@ b) the "Artistic License"
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2013 by Olaf Alders.
+This software is Copyright (c) 2015 by Olaf Alders.
This is free software, licensed under:
@@ -22,7 +22,7 @@ This is free software, licensed under:
Version 1, February 1989
Copyright (C) 1989 Free Software Foundation, Inc.
- 51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
+ 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
@@ -272,7 +272,7 @@ That's all there is to it!
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2013 by Olaf Alders.
+This software is Copyright (c) 2015 by Olaf Alders.
This is free software, licensed under:
@@ -1,3 +1,4 @@
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest v5.031.
Build.PL
CONTRIBUTORS
Changes
@@ -7,6 +8,8 @@ MANIFEST
META.json
Makefile.PL
README
+anonymize-archives
+cpanfile
dist.ini
lib/Archive/Any.pm
lib/Archive/Any/Plugin.pm
@@ -14,7 +17,6 @@ lib/Archive/Any/Plugin/Tar.pm
lib/Archive/Any/Plugin/Zip.pm
lib/Archive/Any/Tar.pm
lib/Archive/Any/Zip.pm
-perltidy.LOG
t/00compile.t
t/Acme-POE-Knee-1.10.zip
t/Any.t
@@ -6,25 +6,33 @@
"Olaf Alders (current maintainer)"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.300035, CPAN::Meta::Converter version 2.120921",
+ "generated_by" : "Dist::Zilla version 5.031, CPAN::Meta::Converter version 2.143240",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
- "version" : "2"
+ "version" : 2
},
"name" : "Archive-Any",
+ "no_index" : {
+ "directory" : [
+ "t"
+ ],
+ "file" : [
+ "anonymize-archives"
+ ]
+ },
"prereqs" : {
"build" : {
"requires" : {
- "Module::Build" : "0.3601"
+ "Module::Build" : "0.28"
}
},
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.30",
- "Module::Build" : "0.3601"
+ "ExtUtils::MakeMaker" : "0",
+ "Module::Build" : "0.28"
}
},
"develop" : {
@@ -65,9 +73,10 @@
"web" : "https://github.com/oalders/archive-any"
}
},
- "version" : "0.0941",
+ "version" : "0.0942",
"x_contributors" : [
"Olaf Alders <olaf@wundersolutions.com>",
+ "Philippe Bruhat (BooK) <book@cpan.org>",
"unknown <unknown>"
]
}
@@ -1,10 +1,11 @@
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v5.031.
use strict;
use warnings;
-use ExtUtils::MakeMaker 6.30;
+use ExtUtils::MakeMaker;
@@ -12,11 +13,11 @@ my %WriteMakefileArgs = (
"ABSTRACT" => "Single interface to deal with file archives.",
"AUTHOR" => "Clint Moore, Michael G Schwern (author emeritus), Olaf Alders (current maintainer)",
"BUILD_REQUIRES" => {
- "Module::Build" => "0.3601"
+ "Module::Build" => "0.28"
},
"CONFIGURE_REQUIRES" => {
- "ExtUtils::MakeMaker" => "6.30",
- "Module::Build" => "0.3601"
+ "ExtUtils::MakeMaker" => 0,
+ "Module::Build" => "0.28"
},
"DISTNAME" => "Archive-Any",
"EXE_FILES" => [],
@@ -38,37 +39,35 @@ my %WriteMakefileArgs = (
"Test::More" => 0,
"Test::Warn" => 0
},
- "VERSION" => "0.0941",
+ "VERSION" => "0.0942",
"test" => {
"TESTS" => "t/*.t"
}
);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
- my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
- my $br = $WriteMakefileArgs{BUILD_REQUIRES};
- for my $mod ( keys %$tr ) {
- if ( exists $br->{$mod} ) {
- $br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
- }
- else {
- $br->{$mod} = $tr->{$mod};
- }
- }
-}
+my %FallbackPrereqs = (
+ "Archive::Tar" => 0,
+ "Archive::Zip" => 0,
+ "Cwd" => 0,
+ "ExtUtils::MakeMaker" => 0,
+ "File::MMagic" => 0,
+ "File::Spec::Functions" => 0,
+ "MIME::Types" => 0,
+ "Module::Build" => "0.28",
+ "Module::Find" => 0,
+ "Test::More" => 0,
+ "Test::Warn" => 0,
+ "base" => 0,
+ "strict" => 0,
+ "warnings" => 0
+);
-unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
- my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};
- my $pp = $WriteMakefileArgs{PREREQ_PM};
- for my $mod ( keys %$br ) {
- if ( exists $pp->{$mod} ) {
- $pp->{$mod} = $br->{$mod} if $br->{$mod} > $pp->{$mod};
- }
- else {
- $pp->{$mod} = $br->{$mod};
- }
- }
+
+unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
+ delete $WriteMakefileArgs{TEST_REQUIRES};
+ delete $WriteMakefileArgs{BUILD_REQUIRES};
+ $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
@@ -1,103 +1,97 @@
-NAME
- Archive::Any - Single interface to deal with file archives.
-
-VERSION
- version 0.0941
-
SYNOPSIS
- use Archive::Any;
+ use Archive::Any;
+
my $archive = Archive::Any->new( $archive_file );
-
+
my @files = $archive->files;
-
+
$archive->extract;
-
+
my $type = $archive->type;
-
+
$archive->is_impolite;
$archive->is_naughty;
DESCRIPTION
+
This module is a single interface for manipulating different archive
formats. Tarballs, zip files, etc.
new
- my $archive = Archive::Any->new( $archive_file );
- my $archive = Archive::Any->new( $archive_file, $type );
- $type is optional. It lets you force the file type in case
- Archive::Any can't figure it out.
+ my $archive = Archive::Any->new( $archive_file );
+ my $archive = Archive::Any->new( $archive_file, $type );
+
+ $type is optional. It lets you force the file type in case
+ Archive::Any can't figure it out.
extract
- $archive->extract;
- $archive->extract( $directory );
- Extracts the files in the archive to the given $directory. If no
- $directory is given, it will go into the current working directory.
+ $archive->extract;
+ $archive->extract( $directory );
+
+ Extracts the files in the archive to the given $directory. If no
+ $directory is given, it will go into the current working directory.
files
- my @file = $archive->files;
- A list of files in the archive.
+ my @file = $archive->files;
+
+ A list of files in the archive.
mime_type
- my $mime_type = $archive->mime_type();
- Returns the mime type of the archive.
+ my $mime_type = $archive->mime_type();
+
+ Returns the mime type of the archive.
is_impolite
- my $is_impolite = $archive->is_impolite;
- Checks to see if this archive is going to unpack into the current
- directory rather than create its own.
+ my $is_impolite = $archive->is_impolite;
+
+ Checks to see if this archive is going to unpack into the current
+ directory rather than create its own.
is_naughty
- my $is_naughty = $archive->is_naughty;
- Checks to see if this archive is going to unpack outside the current
- directory.
+ my $is_naughty = $archive->is_naughty;
+
+ Checks to see if this archive is going to unpack outside the current
+ directory.
DEPRECATED
+
type
- my $type = $archive->type;
- Returns the type of archive. This method is provided for backwards
- compatibility in the Tar and Zip plugins and will be going away soon
- in favor of "mime_type".
+ my $type = $archive->type;
+
+ Returns the type of archive. This method is provided for backwards
+ compatibility in the Tar and Zip plugins and will be going away soon
+ in favor of mime_type.
PLUGINS
+
For detailed information on writing plugins to work with Archive::Any,
please see the pod documentation for Archive::Any::Plugin.
SEE ALSO
+
Archive::Any::Plugin
SUPPORT
+
You can find documentation for this module with the perldoc command.
perldoc Archive::Any
You can also look for information at:
- * MetaCPAN
-
- <https://metacpan.org/module/Archive::Any>
-
- * Issue tracker
-
- <https://github.com/oalders/archive-any/issues>
-
-AUTHORS
- * Clint Moore
-
- * Michael G Schwern (author emeritus)
+ * MetaCPAN
- * Olaf Alders (current maintainer)
+ https://metacpan.org/module/Archive::Any
-COPYRIGHT AND LICENSE
- This software is copyright (c) 2013 by Olaf Alders.
+ * Issue tracker
- This is free software; you can redistribute it and/or modify it under
- the same terms as the Perl 5 programming language system itself.
+ https://github.com/oalders/archive-any/issues
@@ -0,0 +1,121 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+use File::Temp qw( tempdir tempfile );
+use Archive::Any;
+use File::LibMagic;
+use Path::Class;
+
+# This program will replace the content of any files contained in a tar,
+# tar.gz or zip archive by random noise, while preserving the permissions
+# and ownership (assuming all files in the archive have the same owner as
+# the first file).
+#
+# It will skip unrecognized files. It requires GNU tar for extracting
+# the archives and bsdtar for repacking them.
+#
+# Usage: anonymize-archives file ...
+
+my $magic = File::LibMagic->new;
+
+# process files given on the command line
+while ( my $file = shift ) {
+
+ # open the archive
+ my $archive = eval {
+ local $SIG{__WARN__} = sub { }; # no warnings from Archive::Any
+ Archive::Any->new($file);
+ } or do {
+ print STDERR "Skipping $file\n";
+ next;
+ };
+ my $type = $archive->type;
+ print STDERR "Processing $file ($type)\n";
+
+ # get the list of files
+ my @files = $archive->files;
+
+ # extract the archive in a temporary directory
+ my $dir = tempdir( CLEANUP => 1 );
+
+ # re-create an archive with same files and dummy content
+ my $tmp = "$file.tmp";
+ if ( $type eq 'tar' ) {
+
+ # save differently if compressed
+ my ($mime) = split ';', $magic->checktype_filename($file);
+ my $gzip = $mime eq 'application/x-gzip' ? 'z' : '';
+
+ # record list of files for tar
+ ( undef, my $list ) = tempfile( UNLINK => 1 );
+ file($list)->spew(
+ [ map +( $archive->is_naughty ? substr( $_, 1 ) : $_ ) . "\n",
+ @files
+ ]
+ );
+
+ # extract archive
+ `tar x${gzip}f $file -C $dir --delay-directory-restore`;
+
+ # replace all file content with random data
+ my @mtime;
+ for my $path (@files) {
+ my $mode;
+ my $member = file( $dir, $path );
+ unshift @mtime, [ ( ( stat $member )[9] ) x 2, "$member" ];
+ next if -d $member;
+ if ( !-w $member ) {
+ $mode = ( stat $member )[2] if !-w $member;
+ chmod 0644, $member;
+ }
+ $member->spew( pack "C*", map rand 256, 1 .. -s $member );
+ chmod $mode, $member if $mode;
+ }
+
+ # restore date and time
+ utime @$_ for @mtime;
+
+ # pick up owner and group
+ my $iter = Archive::Tar->iter($file);
+ my $member = $iter->();
+ my @opts = (
+ '--uid' => $member->uid,
+ '--uname' => $member->uname,
+ '--gid' => $member->gid,
+ '--gname' => $member->gname,
+ ( '-s', ':^:/:', '--absolute-paths' )x!! $archive->is_naughty,
+ );
+
+ # repack the file
+ `bsdtar -c${gzip}f $tmp -C $dir -T $list --no-recursion @opts`;
+ }
+ elsif ( $type eq 'zip' ) {
+
+ # read the list of files and their properties
+ my $old = Archive::Zip->new;
+ $old->read($file) and do { warn "Error reading $file\n"; next };
+ my @members = $old->members();
+
+ # create a new zip file with dummy content
+ my $zip = Archive::Zip->new;
+ for my $member (@members) {
+ $member->contents(
+ pack "C*",
+ map rand 256,
+ 1 .. $member->uncompressedSize
+ );
+ $zip->addMember($member);
+ }
+
+ # save the new zip
+ $zip->writeToFileNamed($tmp);
+ }
+ else {
+ print STDERR "Skipping $file ($type)\n";
+ next;
+ }
+
+ # replace archive
+ rename $tmp, $file;
+}
@@ -0,0 +1,28 @@
+requires "Archive::Tar" => "0";
+requires "Archive::Zip" => "0";
+requires "Cwd" => "0";
+requires "File::MMagic" => "0";
+requires "File::Spec::Functions" => "0";
+requires "MIME::Types" => "0";
+requires "Module::Find" => "0";
+requires "base" => "0";
+requires "strict" => "0";
+requires "warnings" => "0";
+
+on 'build' => sub {
+ requires "Module::Build" => "0.28";
+};
+
+on 'test' => sub {
+ requires "Test::More" => "0";
+ requires "Test::Warn" => "0";
+};
+
+on 'configure' => sub {
+ requires "ExtUtils::MakeMaker" => "0";
+ requires "Module::Build" => "0.28";
+};
+
+on 'develop' => sub {
+ requires "Test::CPAN::Changes" => "0.19";
+};
@@ -3,10 +3,26 @@ author = Clint Moore
author = Michael G Schwern (author emeritus)
author = Olaf Alders (current maintainer)
license = Perl_5
-version = 0.0941
+version = 0.0942
main_module = lib/Archive/Any.pm
[GatherDir]
+exclude_filename = cpanfile
+exclude_filename = README
+
+[Encoding]
+encoding = bytes
+filename = t/Acme-POE-Knee-1.10.zip
+filename = t/LoadHtml.5_0.tar.gz
+filename = t/im_not_really_a.zip
+filename = t/impolite.tar.gz
+filename = t/lib.tgz
+filename = t/lib.zip
+filename = t/naughty.hominawoof
+filename = t/naughty.tar
+filename = t/naughty.tar.gz
+filename = t/your-0.01.tar.gz
+
[PruneCruft]
[ManifestSkip]
[License]
@@ -41,7 +57,16 @@ web = http://github.com/oalders/%s/issues
[NextRelease]
format = %-1v %{yyyy-MM-dd HH:mm:ss VVVV}d
-[ContributorsFromGit]
+[MetaNoIndex]
+directory = t
+file = anonymize-archives
+
+[Git::Contributors]
[ContributorsFile]
[@Git]
+
+[CPANFile]
+[CopyFilesFromBuild]
+copy = cpanfile
+copy = README
@@ -1,8 +1,5 @@
package Archive::Any::Plugin::Tar;
-{
- $Archive::Any::Plugin::Tar::VERSION = '0.0941';
-}
-
+$Archive::Any::Plugin::Tar::VERSION = '0.0942';
use strict;
use base 'Archive::Any::Plugin';
@@ -42,13 +39,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
Archive::Any::Plugin::Tar - Archive::Any wrapper around Archive::Tar
=head1 VERSION
-version 0.0941
+version 0.0942
=head1 SYNOPSIS
@@ -78,7 +77,7 @@ Olaf Alders (current maintainer)
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,8 +1,5 @@
package Archive::Any::Plugin::Zip;
-{
- $Archive::Any::Plugin::Zip::VERSION = '0.0941';
-}
-
+$Archive::Any::Plugin::Zip::VERSION = '0.0942';
use strict;
use base qw(Archive::Any::Plugin);
@@ -42,13 +39,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
Archive::Any::Plugin::Zip - Archive::Any wrapper around Archive::Zip
=head1 VERSION
-version 0.0941
+version 0.0942
=head1 SYNOPSIS
@@ -80,7 +79,7 @@ Olaf Alders (current maintainer)
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,8 +1,5 @@
package Archive::Any::Plugin;
-{
- $Archive::Any::Plugin::VERSION = '0.0941';
-}
-
+$Archive::Any::Plugin::VERSION = '0.0942';
use strict;
use warnings;
@@ -35,13 +32,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
Archive::Any::Plugin - Anatomy of an Archive::Any plugin.
=head1 VERSION
-version 0.0941
+version 0.0942
=head1 SYNOPSIS
@@ -119,7 +118,7 @@ Olaf Alders (current maintainer)
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,8 +1,5 @@
package Archive::Any::Tar;
-{
- $Archive::Any::Tar::VERSION = '0.0941';
-}
-
+$Archive::Any::Tar::VERSION = '0.0942';
use strict;
require Archive::Any;
@@ -60,13 +57,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
Archive::Any::Tar - Archive::Any wrapper around Archive::Tar
=head1 VERSION
-version 0.0941
+version 0.0942
=head1 SYNOPSIS
@@ -102,7 +101,7 @@ Olaf Alders (current maintainer)
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,8 +1,5 @@
package Archive::Any::Zip;
-{
- $Archive::Any::Zip::VERSION = '0.0941';
-}
-
+$Archive::Any::Zip::VERSION = '0.0942';
use strict;
require Archive::Any;
@@ -62,13 +59,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
Archive::Any::Zip - Archive::Any wrapper around Archive::Zip
=head1 VERSION
-version 0.0941
+version 0.0942
=head1 SYNOPSIS
@@ -100,7 +99,7 @@ Olaf Alders (current maintainer)
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,8 +1,5 @@
package Archive::Any;
-{
- $Archive::Any::VERSION = '0.0941';
-}
-
+$Archive::Any::VERSION = '0.0942';
use strict;
use warnings;
@@ -112,13 +109,15 @@ __END__
=pod
+=encoding UTF-8
+
=head1 NAME
Archive::Any - Single interface to deal with file archives.
=head1 VERSION
-version 0.0941
+version 0.0942
=head1 SYNOPSIS
@@ -249,7 +248,7 @@ Olaf Alders (current maintainer)
=head1 COPYRIGHT AND LICENSE
-This software is copyright (c) 2013 by Olaf Alders.
+This software is copyright (c) 2015 by Olaf Alders.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -1,21 +0,0 @@
-perltidy version 20121207 log file on a darwin system, OLD_PERL_VERSION=5.018000
-Found Configuration File >>> /Users/olaf/.perltidyrc
-Configuration and command line parameters for this run:
--pbp -nst -pt=0
-To find error messages search for 'WARNING' with your editor
-Indentation will be with 4 spaces
-Line 1 implies starting-indentation-level = 0
-The nesting depths in the table below are at the start of the lines.
-The indicated output line numbers are not always exact.
-ci = levels of continuation indentation; bk = 1 if in BLOCK, 0 if not.
-
-in:out indent c b nesting code + messages; (messages begin with >>>)
-lines levels i k (code begins with one '.' per indent level)
------- ----- - - -------- -------------------------------------------
-L19:20 i0:0 0 1 { >>>Last line
-
-No indentation disagreement seen
-
-No lines exceeded 78 characters
- Maximum output line length was 76 at line 16
-Suggest including 'use strict;'
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/Acme-POE-Knee-1.10.zip b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/Acme-POE-Knee-1.10.zip
index de65a960..04507893 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/Acme-POE-Knee-1.10.zip and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/Acme-POE-Knee-1.10.zip differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/LoadHtml.5_0.tar.gz b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/LoadHtml.5_0.tar.gz
index 6a4287f5..72c6489a 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/LoadHtml.5_0.tar.gz and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/LoadHtml.5_0.tar.gz differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/impolite.tar.gz b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/impolite.tar.gz
index 3b43ef9c..1e42e274 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/impolite.tar.gz and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/impolite.tar.gz differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/lib.tgz b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/lib.tgz
index 273dfd0a..f5c18e23 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/lib.tgz and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/lib.tgz differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/lib.zip b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/lib.zip
index efa0e51f..0e0869a7 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/lib.zip and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/lib.zip differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/naughty.hominawoof b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/naughty.hominawoof
index 6eda69b5..80a7717c 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/naughty.hominawoof and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/naughty.hominawoof differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/naughty.tar b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/naughty.tar
index 6eda69b5..e7720526 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/naughty.tar and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/naughty.tar differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/naughty.tar.gz b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/naughty.tar.gz
index 45f563f3..bd05bd48 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/naughty.tar.gz and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/naughty.tar.gz differ
diff --git a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/your-0.01.tar.gz b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/your-0.01.tar.gz
index 8ebb7d9e..8c05c5e5 100644
Binary files a/var/tmp/source/OALDERS/Archive-Any-0.0941/Archive-Any-0.0941/t/your-0.01.tar.gz and b/var/tmp/source/OALDERS/Archive-Any-0.0942/Archive-Any-0.0942/t/your-0.01.tar.gz differ