Hello community,
here is the log from the commit of package perl-Module-Find for
openSUSE:Factory checked in at 2019-12-30 12:35:18
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-Find (Old)
and /work/SRC/openSUSE:Factory/.perl-Module-Find.new.6675 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-Find"
Mon Dec 30 12:35:18 2019 rev:9 rq:759958 version:0.15
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Module-Find/perl-Module-Find.changes
2015-04-21 10:52:42.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Module-Find.new.6675/perl-Module-Find.changes
2019-12-30 12:35:20.423820921 +0100
@@ -1,0 +2,6 @@
+Thu Dec 26 03:10:49 UTC 2019 - <[email protected]>
+
+- updated to 0.15
+ see /usr/share/doc/packages/perl-Module-Find/Changes
+
+-------------------------------------------------------------------
Old:
----
Module-Find-0.13.tar.gz
New:
----
Module-Find-0.15.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-Find.spec ++++++
--- /var/tmp/diff_new_pack.lIDXU0/_old 2019-12-30 12:35:22.495822033 +0100
+++ /var/tmp/diff_new_pack.lIDXU0/_new 2019-12-30 12:35:22.535822054 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Module-Find
#
-# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,19 +12,19 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
Name: perl-Module-Find
-Version: 0.13
+Version: 0.15
Release: 0
%define cpan_name Module-Find
Summary: Find and use installed modules in a (sub)category
-License: Artistic-1.0 or GPL-1.0+
+License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Module-Find/
-Source0:
http://www.cpan.org/authors/id/C/CR/CRENZ/%{cpan_name}-%{version}.tar.gz
+Url: https://metacpan.org/release/%{cpan_name}
+Source0:
https://cpan.metacpan.org/authors/id/C/CR/CRENZ/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -47,11 +47,11 @@
%setup -q -n %{cpan_name}-%{version}
%build
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-%{__make} %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
%check
-%{__make} test
+make test
%install
%perl_make_install
++++++ Module-Find-0.13.tar.gz -> Module-Find-0.15.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/Find.pm new/Module-Find-0.15/Find.pm
--- old/Module-Find-0.13/Find.pm 2015-03-10 00:07:06.000000000 +0100
+++ new/Module-Find-0.15/Find.pm 2019-12-26 01:29:28.000000000 +0100
@@ -7,7 +7,7 @@
use File::Spec;
use File::Find;
-our $VERSION = '0.13';
+our $VERSION = '0.15';
our $basedir = undef;
our @results = ();
@@ -123,6 +123,9 @@
$prune = 1;
my @r = _find($_[0]);
+
+ local @INC = @Module::Find::ModuleDirs
+ if (@Module::Find::ModuleDirs);
foreach my $m (@r) {
eval " require $m; import $m ; ";
@@ -146,6 +149,9 @@
my @r = _find($_[0]);
+ local @INC = @Module::Find::ModuleDirs
+ if (@Module::Find::ModuleDirs);
+
foreach my $m (@r) {
eval " require $m; import $m; ";
die $@ if $@;
@@ -158,14 +164,14 @@
# you know, this would be a nice application for currying...
sub _wanted {
my $name = File::Spec->abs2rel($_, $basedir);
- return unless $name && $name ne File::Spec->curdir();
+ return unless $name && $name ne File::Spec->curdir() && substr($name, 0,
1) ne '.';
if (-d && $prune) {
$File::Find::prune = 1;
return;
}
- return unless /\.pm$/ && -r;
+ return unless /\.pm$/;
$name =~ s|\.pm$||;
$name = join('::', File::Spec->splitdir($name));
@@ -182,21 +188,26 @@
my $dir = File::Spec->catdir(split(/::|'/, $category));
- my @dirs;
- if (@Module::Find::ModuleDirs) {
- @dirs = map { File::Spec->catdir($_, $dir) }
- @Module::Find::ModuleDirs;
- } else {
- @dirs = map { File::Spec->catdir($_, $dir) } @INC;
- }
@results = ();
- foreach $basedir (@dirs) {
- next unless -d $basedir;
-
- find({wanted => \&_wanted,
- no_chdir => 1,
- follow => $followMode}, $basedir);
+ foreach my $inc (@Module::Find::ModuleDirs ? @Module::Find::ModuleDirs :
@INC) {
+ if (ref $inc) {
+ if (my @files = eval { $inc->files }) {
+ push @results,
+ map { s/^\Q$category\E::// ? $_ : () }
+ map { s{/}{::}g; s{\.pm$}{}; $_ }
+ grep { /\.pm$/ }
+ @files;
+ }
+ }
+ else {
+ our $basedir = File::Spec->catdir($inc, $dir);
+
+ next unless -d $basedir;
+ find({wanted => \&_wanted,
+ no_chdir => 1,
+ follow => $followMode}, $basedir);
+ }
}
# filter duplicate modules
@@ -306,8 +317,33 @@
=item 0.13, 2015-03-09
This release contains two contributions from Moritz Lenz:
-- Link to Module::Pluggable and Class::Factory::Util in "SEE ALSO"
-- Align package name parsing with how perl does it (allowing single quotes as
module separator)
+
+Link to Module::Pluggable and Class::Factory::Util in "SEE ALSO"
+
+Align package name parsing with how perl does it (allowing single quotes as
module separator)
+
+Also, added a test for meta.yml
+
+=item 0.14, 2019-12-25
+
+A long overdue update. Thank you for the many contributions!
+
+Fixed RT#99055: Removed file readability check (pull request contributed by
Moritz Lenz)
+
+Now supports @INC hooks (pull request contributed by Graham Knop)
+
+Now filters out filenames starting with a dot (pull request contributed by
Desmond Daignault)
+
+Now uses strict (pull request contributed by Shlomi Fish)
+
+Fixed RT#122016: test/ files show up in metacpan (bug report contributed by
Karen Etheridge)
+
+=item 0.15, 2019-12-26
+
+Fixed RT#127657 (bug report contributed by Karen Etheridge): Module::Find now
uses @ModuleDirs
+(if specified) for loading modules. Previously, when using setmoduledirs() to
set an array of
+directories that did not contain @INC, Module::Find would find the modules
correctly, but load
+them from @INC.
=back
@@ -325,7 +361,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright 2004-2014 by Christian Renz <[email protected]>. All rights reserved.
+Copyright 2004-2019 by Christian Renz <[email protected]>. All rights reserved.
This library 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/Module-Find-0.13/MANIFEST
new/Module-Find-0.15/MANIFEST
--- old/Module-Find-0.13/MANIFEST 2015-03-10 00:09:17.000000000 +0100
+++ new/Module-Find-0.15/MANIFEST 2019-12-26 01:30:22.000000000 +0100
@@ -6,22 +6,25 @@
MANIFEST.skip
META.yml Module meta-data (added by MakeMaker)
README
-t/1-use.t
-t/2-find.t
-t/3-usesub.t
-t/4-useall.t
-t/5-setmoduledirs.t
-t/6-duplicate-modules.t
-t/7-symlinks.t
-t/8-taint.t
-t/pod-coverage.t
-t/pod.t
-t/meta.t
-test/duplicates/ModuleFindTest.pm
-test/duplicates/ModuleFindTest/SubMod.pm
-test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
-test/ModuleFindTest.pm
-test/ModuleFindTest/SubMod.pm
-test/ModuleFindTest/SubMod/SubSubMod.pm
-test/README
+t/01-use.t
+t/02-find.t
+t/03-usesub.t
+t/04-useall.t
+t/05-setmoduledirs.t
+t/06-duplicate-modules.t
+t/07-symlinks.t
+t/08-taint.t
+t/09-inc-hook.t
+t/10-wrong-module-sub.t
+t/11-wrong-module-all.t
+t/50-meta.t
+t/51-pod.t
+t/52-pod-coverage.t
+t/test/duplicates/ModuleFindTest.pm
+t/test/duplicates/ModuleFindTest/SubMod.pm
+t/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
+t/test/ModuleFindTest.pm
+t/test/ModuleFindTest/SubMod.pm
+t/test/ModuleFindTest/SubMod/SubSubMod.pm
+t/test/README
META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/META.json
new/Module-Find-0.15/META.json
--- old/Module-Find-0.13/META.json 2015-03-10 00:09:17.000000000 +0100
+++ new/Module-Find-0.15/META.json 2019-12-26 01:30:22.000000000 +0100
@@ -48,5 +48,5 @@
"url" : "http://github.com/crenz/Module-Find";
}
},
- "version" : "0.13"
+ "version" : "0.15"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/META.yml
new/Module-Find-0.15/META.yml
--- old/Module-Find-0.13/META.yml 2015-03-10 00:09:17.000000000 +0100
+++ new/Module-Find-0.15/META.yml 2019-12-26 01:30:21.000000000 +0100
@@ -26,4 +26,4 @@
perl: 5.006001
resources:
repository: http://github.com/crenz/Module-Find
-version: 0.13
+version: 0.15
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/Makefile.PL
new/Module-Find-0.15/Makefile.PL
--- old/Module-Find-0.13/Makefile.PL 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/Makefile.PL 2019-12-25 15:16:05.000000000 +0100
@@ -1,3 +1,6 @@
+use strict;
+use warnings;
+
use 5.006001;
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/README new/Module-Find-0.15/README
--- old/Module-Find-0.13/README 2015-03-10 00:07:47.000000000 +0100
+++ new/Module-Find-0.15/README 2019-12-26 01:29:17.000000000 +0100
@@ -24,7 +24,7 @@
COPYRIGHT AND LICENCE
-Copyright (C) 2004-2015 Christian Renz <[email protected]>. All rights reserved.
+Copyright (C) 2004-2019 Christian Renz <[email protected]>. All rights reserved.
This library 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/Module-Find-0.13/t/01-use.t
new/Module-Find-0.15/t/01-use.t
--- old/Module-Find-0.13/t/01-use.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/01-use.t 2019-12-25 15:27:54.000000000 +0100
@@ -0,0 +1,7 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+BEGIN { use_ok('Module::Find') };
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/02-find.t
new/Module-Find-0.15/t/02-find.t
--- old/Module-Find-0.13/t/02-find.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/02-find.t 2019-12-25 15:29:53.000000000 +0100
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More tests => 7;
+
+use Module::Find;
+
+use lib qw(./t/test);
+
+my @l;
+
+@l = findsubmod ModuleFindTest;
+
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+
+@l = findallmod ModuleFindTest;
+
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+
+@l = findallmod "ModuleFindTest'SubMod";
+is($#l, 0, 'Found one module');
+is($l[0], "ModuleFindTest'SubMod::SubSubMod");
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/03-usesub.t
new/Module-Find-0.15/t/03-usesub.t
--- old/Module-Find-0.13/t/03-usesub.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/03-usesub.t 2019-12-25 15:29:56.000000000 +0100
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+
+use Module::Find;
+
+use lib qw(./t/test);
+
+my @l;
+
+@l = usesub ModuleFindTest;
+
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($ModuleFindTest::SubMod::loaded);
+ok(!$ModuleFindTest::SubMod::SubSubMod::loaded);
+
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 0;
+
+package ModuleFindTest::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 0;
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/04-useall.t
new/Module-Find-0.15/t/04-useall.t
--- old/Module-Find-0.13/t/04-useall.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/04-useall.t 2019-12-25 15:30:00.000000000 +0100
@@ -0,0 +1,30 @@
+use strict;
+use warnings;
+
+use Test::More tests => 5;
+
+use Module::Find;
+
+use lib qw(./t/test);
+
+my @l;
+
+@l = useall ModuleFindTest;
+
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+ok($ModuleFindTest::SubMod::loaded);
+ok($ModuleFindTest::SubMod::SubSubMod::loaded);
+
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 0;
+
+package ModuleFindTest::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 0;
+
+
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/05-setmoduledirs.t
new/Module-Find-0.15/t/05-setmoduledirs.t
--- old/Module-Find-0.13/t/05-setmoduledirs.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-Find-0.15/t/05-setmoduledirs.t 2019-12-25 15:30:15.000000000
+0100
@@ -0,0 +1,56 @@
+use strict;
+use warnings;
+
+use Test::More tests => 18;
+
+use Module::Find;
+
+# First, with @INC only
+
+ok($#Module::Find::ModuleDirs == -1);
+
+my @l = findsubmod ModuleFindTest;
+ok($#l == -1);
+
+@l = findallmod ModuleFindTest;
+ok($#l == -1);
+
+# Then, including our directory
+
+setmoduledirs('./t/test');
+ok($#Module::Find::ModuleDirs == 0);
+
+@l = findsubmod ModuleFindTest;
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+
+@l = findallmod ModuleFindTest;
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+
+# Third, reset back to @INC only
+
+setmoduledirs();
+ok($#Module::Find::ModuleDirs == -1);
+
+@l = findsubmod ModuleFindTest;
+ok($#l == -1);
+
+@l = findallmod ModuleFindTest;
+ok($#l == -1);
+
+# Fourth, including our directory again
+
+setmoduledirs('./t/test');
+ok($#Module::Find::ModuleDirs == 0);
+
+@l = findsubmod ModuleFindTest;
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+
+@l = findallmod ModuleFindTest;
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/06-duplicate-modules.t
new/Module-Find-0.15/t/06-duplicate-modules.t
--- old/Module-Find-0.13/t/06-duplicate-modules.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/06-duplicate-modules.t 2019-12-25
15:30:21.000000000 +0100
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use Module::Find;
+
+use lib qw(./t/test ./t/test/duplicates);
+
+# Ensure duplicate modules are only reported once
+my @l = useall ModuleFindTest;
+ok($#l == 1);
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/07-symlinks.t
new/Module-Find-0.15/t/07-symlinks.t
--- old/Module-Find-0.13/t/07-symlinks.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-Find-0.15/t/07-symlinks.t 2019-12-25 15:31:06.000000000
+0100
@@ -0,0 +1,58 @@
+use strict;
+use warnings;
+
+use Test::More tests => 13;
+
+use Module::Find qw(ignoresymlinks followsymlinks findsubmod findallmod);
+
+use lib qw(./t/test);
+
+my $dirName = "ModuleFindTest";
+my $linkName = "./t/test/ModuleFindTestSymLink";
+
+SKIP: {
+ eval { symlink($dirName, $linkName) };
+ skip "Symlinks not supported on this system", 13 if $@;
+
+ my @l;
+
+ # Default behaviour: follow symlinks -----------------------
+ @l = findsubmod ModuleFindTestSymLink;
+ ok($#l == 0);
+ ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
+
+ @l = findallmod ModuleFindTestSymLink;
+ ok($#l == 1);
+ ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
+ ok($l[1] eq 'ModuleFindTestSymLink::SubMod::SubSubMod');
+
+
+ # Switch off following symlinks ---------------------------
+ ignoresymlinks();
+ @l = findsubmod ModuleFindTestSymLink;
+ ok($#l == -1);
+
+ @l = findallmod ModuleFindTestSymLink;
+ ok($#l == -1);
+
+
+ # Re-enable it --------------------------------------------
+ followsymlinks();
+ @l = findsubmod ModuleFindTestSymLink;
+ ok($#l == 0);
+ ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
+
+ @l = findallmod ModuleFindTestSymLink;
+ ok($#l == 1);
+ ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
+ ok($l[1] eq 'ModuleFindTestSymLink::SubMod::SubSubMod');
+
+
+
+ # Clean up
+ unlink $linkName;
+ ok(!-e $linkName);
+}
+
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/08-taint.t
new/Module-Find-0.15/t/08-taint.t
--- old/Module-Find-0.13/t/08-taint.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/08-taint.t 2019-12-25 15:30:34.000000000 +0100
@@ -0,0 +1,24 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+
+use Module::Find;
+
+use lib qw(./t/test);
+
+findsubmod ModuleFindTest;
+
+usesub ModuleFindTest;
+ok($ModuleFindTest::SubMod::loaded);
+ok(!$ModuleFindTest::SubMod::SubSubMod::loaded);
+
+useall ModuleFindTest;
+ok($ModuleFindTest::SubMod::loaded);
+ok($ModuleFindTest::SubMod::SubSubMod::loaded);
+
+setmoduledirs('./test');
+findallmod ModuleFindTest;
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/09-inc-hook.t
new/Module-Find-0.15/t/09-inc-hook.t
--- old/Module-Find-0.13/t/09-inc-hook.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-Find-0.15/t/09-inc-hook.t 2019-12-25 15:28:28.000000000
+0100
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+use Test::More tests => 3;
+use Module::Find;
+
+BEGIN {
+ package MFTestIncHook;
+ sub files { keys %{$_[0]} };
+
+ sub MFTestIncHook::INC {
+ if (my $fat = $_[0]{$_[1]}) {
+ open my $fh, '<', \$fat
+ or die "error: $!";
+ return $fh;
+ }
+ return;
+ };
+
+ unshift @INC, bless {
+ 'MFTest/Packed/Module.pm' => <<'END_MOD',
+package MFTest::Packed::Module;
+$VERSION = 5;
+END_MOD
+ }, __PACKAGE__;
+}
+
+my @l = useall 'MFTest::Packed';
+
+is scalar @l, 1;
+is $l[0], 'MFTest::Packed::Module';
+is $MFTest::Packed::Module::VERSION, 5;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/1-use.t
new/Module-Find-0.15/t/1-use.t
--- old/Module-Find-0.13/t/1-use.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/1-use.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,4 +0,0 @@
-use Test::More tests => 1;
-
-BEGIN { use_ok('Module::Find') };
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/10-wrong-module-sub.t
new/Module-Find-0.15/t/10-wrong-module-sub.t
--- old/Module-Find-0.13/t/10-wrong-module-sub.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/10-wrong-module-sub.t 2019-12-26
01:13:32.000000000 +0100
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+use Module::Find;
+
+use lib qw(./t/test-malicious);
+
+setmoduledirs('./t/test');
+
+my @l = usesub ModuleFindTest;
+ok($#l == 0);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok(ModuleFindTest::SubMod::theRealDeal());
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/11-wrong-module-all.t
new/Module-Find-0.15/t/11-wrong-module-all.t
--- old/Module-Find-0.13/t/11-wrong-module-all.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/11-wrong-module-all.t 2019-12-26
01:14:04.000000000 +0100
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+use Module::Find;
+
+use lib qw(./t/test-malicious);
+
+setmoduledirs('./t/test');
+
+my @l = useall ModuleFindTest;
+ok($#l == 1);
+ok($l[0] eq 'ModuleFindTest::SubMod');
+ok(ModuleFindTest::SubMod::theRealDeal());
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/2-find.t
new/Module-Find-0.15/t/2-find.t
--- old/Module-Find-0.13/t/2-find.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/2-find.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,24 +0,0 @@
-use Test::More tests => 7;
-
-use Module::Find;
-
-use lib qw(./test);
-
-my @l;
-
-@l = findsubmod ModuleFindTest;
-
-ok($#l == 0);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-
-@l = findallmod ModuleFindTest;
-
-ok($#l == 1);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
-
-@l = findallmod "ModuleFindTest'SubMod";
-is($#l, 0, 'Found one module');
-is($l[0], "ModuleFindTest'SubMod::SubSubMod");
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/3-usesub.t
new/Module-Find-0.15/t/3-usesub.t
--- old/Module-Find-0.13/t/3-usesub.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/3-usesub.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,24 +0,0 @@
-use Test::More tests => 4;
-
-use Module::Find;
-
-use lib qw(./test);
-
-my @l;
-
-@l = usesub ModuleFindTest;
-
-ok($#l == 0);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-ok($ModuleFindTest::SubMod::loaded);
-ok(!$ModuleFindTest::SubMod::SubSubMod::loaded);
-
-package ModuleFindTest::SubMod;
-
-$ModuleFindTest::SubMod::loaded = 0;
-
-package ModuleFindTest::SubSubMod;
-
-$ModuleFindTest::SubMod::SubSubMod::loaded = 0;
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/4-useall.t
new/Module-Find-0.15/t/4-useall.t
--- old/Module-Find-0.13/t/4-useall.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/4-useall.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,27 +0,0 @@
-use Test::More tests => 5;
-
-use Module::Find;
-
-use lib qw(./test);
-
-my @l;
-
-@l = useall ModuleFindTest;
-
-ok($#l == 1);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
-ok($ModuleFindTest::SubMod::loaded);
-ok($ModuleFindTest::SubMod::SubSubMod::loaded);
-
-package ModuleFindTest::SubMod;
-
-$ModuleFindTest::SubMod::loaded = 0;
-
-package ModuleFindTest::SubSubMod;
-
-$ModuleFindTest::SubMod::SubSubMod::loaded = 0;
-
-
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/5-setmoduledirs.t
new/Module-Find-0.15/t/5-setmoduledirs.t
--- old/Module-Find-0.13/t/5-setmoduledirs.t 2015-03-09 23:55:39.000000000
+0100
+++ new/Module-Find-0.15/t/5-setmoduledirs.t 1970-01-01 01:00:00.000000000
+0100
@@ -1,53 +0,0 @@
-use Test::More tests => 18;
-
-use Module::Find;
-
-# First, with @INC only
-
-ok($#Module::Find::ModuleDirs == -1);
-
-@l = findsubmod ModuleFindTest;
-ok($#l == -1);
-
-@l = findallmod ModuleFindTest;
-ok($#l == -1);
-
-# Then, including our directory
-
-setmoduledirs('./test');
-ok($#Module::Find::ModuleDirs == 0);
-
-@l = findsubmod ModuleFindTest;
-ok($#l == 0);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-
-@l = findallmod ModuleFindTest;
-ok($#l == 1);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
-
-# Third, reset back to @INC only
-
-setmoduledirs();
-ok($#Module::Find::ModuleDirs == -1);
-
-@l = findsubmod ModuleFindTest;
-ok($#l == -1);
-
-@l = findallmod ModuleFindTest;
-ok($#l == -1);
-
-# Fourth, including our directory again
-
-setmoduledirs('./test');
-ok($#Module::Find::ModuleDirs == 0);
-
-@l = findsubmod ModuleFindTest;
-ok($#l == 0);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-
-@l = findallmod ModuleFindTest;
-ok($#l == 1);
-ok($l[0] eq 'ModuleFindTest::SubMod');
-ok($l[1] eq 'ModuleFindTest::SubMod::SubSubMod');
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/50-meta.t
new/Module-Find-0.15/t/50-meta.t
--- old/Module-Find-0.13/t/50-meta.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/50-meta.t 2019-12-25 15:28:34.000000000 +0100
@@ -0,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::CPAN::Meta";
+plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@;
+meta_yaml_ok();
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/51-pod.t
new/Module-Find-0.15/t/51-pod.t
--- old/Module-Find-0.13/t/51-pod.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/51-pod.t 2019-12-25 15:28:49.000000000 +0100
@@ -0,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/52-pod-coverage.t
new/Module-Find-0.15/t/52-pod-coverage.t
--- old/Module-Find-0.13/t/52-pod-coverage.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-Find-0.15/t/52-pod-coverage.t 2019-12-25 15:28:53.000000000
+0100
@@ -0,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
if $@;
+all_pod_coverage_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/6-duplicate-modules.t
new/Module-Find-0.15/t/6-duplicate-modules.t
--- old/Module-Find-0.13/t/6-duplicate-modules.t 2015-03-09
23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/6-duplicate-modules.t 1970-01-01
01:00:00.000000000 +0100
@@ -1,9 +0,0 @@
-use Test::More tests => 1;
-
-use Module::Find;
-
-use lib qw(./test ./test/duplicates);
-
-# Ensure duplicate modules are only reported once
-my @l = useall ModuleFindTest;
-ok($#l == 1);
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/7-symlinks.t
new/Module-Find-0.15/t/7-symlinks.t
--- old/Module-Find-0.13/t/7-symlinks.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/7-symlinks.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,55 +0,0 @@
-use Test::More tests => 13;
-
-use Module::Find qw(ignoresymlinks followsymlinks findsubmod findallmod);
-
-use lib qw(./test);
-
-my $dirName = "ModuleFindTest";
-my $linkName = "./test/ModuleFindTestSymLink";
-
-SKIP: {
- eval { symlink($dirName, $linkName) };
- skip "Symlinks not supported on this system", 13 if $@;
-
- my @l;
-
- # Default behaviour: follow symlinks -----------------------
- @l = findsubmod ModuleFindTestSymLink;
- ok($#l == 0);
- ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
-
- @l = findallmod ModuleFindTestSymLink;
- ok($#l == 1);
- ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
- ok($l[1] eq 'ModuleFindTestSymLink::SubMod::SubSubMod');
-
-
- # Switch off following symlinks ---------------------------
- ignoresymlinks();
- @l = findsubmod ModuleFindTestSymLink;
- ok($#l == -1);
-
- @l = findallmod ModuleFindTestSymLink;
- ok($#l == -1);
-
-
- # Re-enable it --------------------------------------------
- followsymlinks();
- @l = findsubmod ModuleFindTestSymLink;
- ok($#l == 0);
- ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
-
- @l = findallmod ModuleFindTestSymLink;
- ok($#l == 1);
- ok($l[0] eq 'ModuleFindTestSymLink::SubMod');
- ok($l[1] eq 'ModuleFindTestSymLink::SubMod::SubSubMod');
-
-
-
- # Clean up
- unlink $linkName;
- ok(!-e $linkName);
-}
-
-
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/8-taint.t
new/Module-Find-0.15/t/8-taint.t
--- old/Module-Find-0.13/t/8-taint.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/8-taint.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,21 +0,0 @@
-#!perl -T
-
-use Test::More tests => 4;
-
-use Module::Find;
-
-use lib qw(./test);
-
-findsubmod ModuleFindTest;
-
-usesub ModuleFindTest;
-ok($ModuleFindTest::SubMod::loaded);
-ok(!$ModuleFindTest::SubMod::SubSubMod::loaded);
-
-useall ModuleFindTest;
-ok($ModuleFindTest::SubMod::loaded);
-ok($ModuleFindTest::SubMod::SubSubMod::loaded);
-
-setmoduledirs('./test');
-findallmod ModuleFindTest;
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/meta.t
new/Module-Find-0.15/t/meta.t
--- old/Module-Find-0.13/t/meta.t 2015-03-10 00:08:57.000000000 +0100
+++ new/Module-Find-0.15/t/meta.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,6 +0,0 @@
-#!perl -T
-
-use Test::More;
-eval "use Test::CPAN::Meta";
-plan skip_all => "Test::CPAN::Meta required for testing META.yml" if $@;
-meta_yaml_ok();
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/pod-coverage.t
new/Module-Find-0.15/t/pod-coverage.t
--- old/Module-Find-0.13/t/pod-coverage.t 2015-03-09 23:55:39.000000000
+0100
+++ new/Module-Find-0.15/t/pod-coverage.t 1970-01-01 01:00:00.000000000
+0100
@@ -1,6 +0,0 @@
-#!perl -T
-
-use Test::More;
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage"
if $@;
-all_pod_coverage_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/pod.t new/Module-Find-0.15/t/pod.t
--- old/Module-Find-0.13/t/pod.t 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/t/pod.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,6 +0,0 @@
-#!perl -T
-
-use Test::More;
-eval "use Test::Pod 1.14";
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
-all_pod_files_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Find-0.13/t/test/ModuleFindTest/SubMod/SubSubMod.pm
new/Module-Find-0.15/t/test/ModuleFindTest/SubMod/SubSubMod.pm
--- old/Module-Find-0.13/t/test/ModuleFindTest/SubMod/SubSubMod.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/ModuleFindTest/SubMod/SubSubMod.pm
2015-03-09 23:55:39.000000000 +0100
@@ -0,0 +1,3 @@
+package ModuleFindTest::SubMod::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/test/ModuleFindTest/SubMod.pm
new/Module-Find-0.15/t/test/ModuleFindTest/SubMod.pm
--- old/Module-Find-0.13/t/test/ModuleFindTest/SubMod.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/ModuleFindTest/SubMod.pm 2019-12-26
01:07:45.000000000 +0100
@@ -0,0 +1,7 @@
+package ModuleFindTest::SubMod;
+
+sub theRealDeal {
+ return 1;
+}
+
+$ModuleFindTest::SubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/test/ModuleFindTest.pm
new/Module-Find-0.15/t/test/ModuleFindTest.pm
--- old/Module-Find-0.13/t/test/ModuleFindTest.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/ModuleFindTest.pm 2015-03-09
23:55:39.000000000 +0100
@@ -0,0 +1,3 @@
+package ModuleFindTest;
+
+$ModuleFindTest::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/test/README
new/Module-Find-0.15/t/test/README
--- old/Module-Find-0.13/t/test/README 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/README 2015-03-09 23:55:39.000000000 +0100
@@ -0,0 +1,5 @@
+This folder contains a few module files to test the functionality of
+Module::Find.
+
+Use "make test" to run the tests.
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Find-0.13/t/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
new/Module-Find-0.15/t/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
--- old/Module-Find-0.13/t/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
2015-03-09 23:55:39.000000000 +0100
@@ -0,0 +1,3 @@
+package ModuleFindTest::SubMod::SubSubMod;
+
+$ModuleFindTest::SubMod::SubSubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Find-0.13/t/test/duplicates/ModuleFindTest/SubMod.pm
new/Module-Find-0.15/t/test/duplicates/ModuleFindTest/SubMod.pm
--- old/Module-Find-0.13/t/test/duplicates/ModuleFindTest/SubMod.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/duplicates/ModuleFindTest/SubMod.pm
2015-03-09 23:55:39.000000000 +0100
@@ -0,0 +1,3 @@
+package ModuleFindTest::SubMod;
+
+$ModuleFindTest::SubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/t/test/duplicates/ModuleFindTest.pm
new/Module-Find-0.15/t/test/duplicates/ModuleFindTest.pm
--- old/Module-Find-0.13/t/test/duplicates/ModuleFindTest.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Find-0.15/t/test/duplicates/ModuleFindTest.pm 2015-03-09
23:55:39.000000000 +0100
@@ -0,0 +1,3 @@
+package ModuleFindTest;
+
+$ModuleFindTest::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Find-0.13/test/ModuleFindTest/SubMod/SubSubMod.pm
new/Module-Find-0.15/test/ModuleFindTest/SubMod/SubSubMod.pm
--- old/Module-Find-0.13/test/ModuleFindTest/SubMod/SubSubMod.pm
2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/test/ModuleFindTest/SubMod/SubSubMod.pm
1970-01-01 01:00:00.000000000 +0100
@@ -1,3 +0,0 @@
-package ModuleFindTest::SubMod::SubSubMod;
-
-$ModuleFindTest::SubMod::SubSubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/test/ModuleFindTest/SubMod.pm
new/Module-Find-0.15/test/ModuleFindTest/SubMod.pm
--- old/Module-Find-0.13/test/ModuleFindTest/SubMod.pm 2015-03-09
23:55:39.000000000 +0100
+++ new/Module-Find-0.15/test/ModuleFindTest/SubMod.pm 1970-01-01
01:00:00.000000000 +0100
@@ -1,3 +0,0 @@
-package ModuleFindTest::SubMod;
-
-$ModuleFindTest::SubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/test/ModuleFindTest.pm
new/Module-Find-0.15/test/ModuleFindTest.pm
--- old/Module-Find-0.13/test/ModuleFindTest.pm 2015-03-09 23:55:39.000000000
+0100
+++ new/Module-Find-0.15/test/ModuleFindTest.pm 1970-01-01 01:00:00.000000000
+0100
@@ -1,3 +0,0 @@
-package ModuleFindTest;
-
-$ModuleFindTest::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/test/README
new/Module-Find-0.15/test/README
--- old/Module-Find-0.13/test/README 2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/test/README 1970-01-01 01:00:00.000000000 +0100
@@ -1,5 +0,0 @@
-This folder contains a few module files to test the functionality of
-Module::Find.
-
-Use "make test" to run the tests.
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Find-0.13/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
new/Module-Find-0.15/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
--- old/Module-Find-0.13/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/test/duplicates/ModuleFindTest/SubMod/SubSubMod.pm
1970-01-01 01:00:00.000000000 +0100
@@ -1,3 +0,0 @@
-package ModuleFindTest::SubMod::SubSubMod;
-
-$ModuleFindTest::SubMod::SubSubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Find-0.13/test/duplicates/ModuleFindTest/SubMod.pm
new/Module-Find-0.15/test/duplicates/ModuleFindTest/SubMod.pm
--- old/Module-Find-0.13/test/duplicates/ModuleFindTest/SubMod.pm
2015-03-09 23:55:39.000000000 +0100
+++ new/Module-Find-0.15/test/duplicates/ModuleFindTest/SubMod.pm
1970-01-01 01:00:00.000000000 +0100
@@ -1,3 +0,0 @@
-package ModuleFindTest::SubMod;
-
-$ModuleFindTest::SubMod::loaded = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Find-0.13/test/duplicates/ModuleFindTest.pm
new/Module-Find-0.15/test/duplicates/ModuleFindTest.pm
--- old/Module-Find-0.13/test/duplicates/ModuleFindTest.pm 2015-03-09
23:55:39.000000000 +0100
+++ new/Module-Find-0.15/test/duplicates/ModuleFindTest.pm 1970-01-01
01:00:00.000000000 +0100
@@ -1,3 +0,0 @@
-package ModuleFindTest;
-
-$ModuleFindTest::loaded = 1;
