Hello community,
here is the log from the commit of package perl-Module-ScanDeps for
openSUSE:Factory checked in at 2020-09-03 01:11:01
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-ScanDeps (Old)
and /work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.3399 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-ScanDeps"
Thu Sep 3 01:11:01 2020 rev:27 rq:829973 version:1.29
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Module-ScanDeps/perl-Module-ScanDeps.changes
2020-08-12 10:55:31.492714315 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Module-ScanDeps.new.3399/perl-Module-ScanDeps.changes
2020-09-03 01:11:41.080417594 +0200
@@ -1,0 +2,13 @@
+Mon Aug 17 03:12:09 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 1.29
+ see /usr/share/doc/packages/perl-Module-ScanDeps/Changes
+
+ 1.29 2020-08-16
+
+ - implement interpretation of stuff like
+
+ use FindBin;
+ use lib "$FindBin/../lib";
+
+-------------------------------------------------------------------
Old:
----
Module-ScanDeps-1.28.tar.gz
New:
----
Module-ScanDeps-1.29.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-ScanDeps.spec ++++++
--- /var/tmp/diff_new_pack.MV6IKA/_old 2020-09-03 01:11:41.872417858 +0200
+++ /var/tmp/diff_new_pack.MV6IKA/_new 2020-09-03 01:11:41.876417859 +0200
@@ -17,7 +17,7 @@
Name: perl-Module-ScanDeps
-Version: 1.28
+Version: 1.29
Release: 0
%define cpan_name Module-ScanDeps
Summary: Recursively scan Perl code for dependencies
++++++ Module-ScanDeps-1.28.tar.gz -> Module-ScanDeps-1.29.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/MANIFEST
new/Module-ScanDeps-1.29/MANIFEST
--- old/Module-ScanDeps-1.28/MANIFEST 2020-08-06 09:58:12.000000000 +0200
+++ new/Module-ScanDeps-1.29/MANIFEST 2020-08-16 14:24:10.000000000 +0200
@@ -5,6 +5,7 @@
LICENSE
Makefile.PL
MANIFEST This list of files
+MANIFEST.SKIP
README
script/scandeps.pl
t/0-pod.t
@@ -16,6 +17,7 @@
t/14-static_functional_cached.t
t/16-scan_line.t
t/17-private_methods.t
+t/18-findbin.t
t/2-static_functional_interface_fake.t
t/3-static_oo_interface_real.t
t/4-static_functional_interface_options_fake.t
@@ -35,6 +37,7 @@
t/data/duplicated_entries/use_scoped_package.pl
t/data/file-glob-no.pl
t/data/file-glob-yes.pl
+t/data/modules/Foo.pm
t/data/pluggable/Foo.pm
t/data/pluggable/Foo/Plugin/Bar.pm
t/data/pluggable/Foo/Plugin/Baz.pm
@@ -63,6 +66,7 @@
t/data/static/TestC.pm
t/data/static/TestD.pm
t/data/static/useVERSION.pm
+t/data/use-findbin.pl
t/data/use_lib.pl
t/rt90869.t
t/Utils.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/MANIFEST.SKIP
new/Module-ScanDeps-1.29/MANIFEST.SKIP
--- old/Module-ScanDeps-1.28/MANIFEST.SKIP 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-ScanDeps-1.29/MANIFEST.SKIP 2020-08-16 14:21:46.000000000
+0200
@@ -0,0 +1,80 @@
+
+#!start included
/home/roderich/perl5/perlbrew/perls/perl-5.30.3/lib/5.30.3/ExtUtils/MANIFEST.SKIP
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$ # 6.18 through 6.25 generated this
+\b_eumm/ # 7.05_05 and above
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# and Module::Build::Tiny generated files
+\b_build_params$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+\..*\.sw.?$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+
+# Avoid prove files
+\B\.prove$
+
+# Avoid MYMETA files
+^MYMETA\.
+
+# Temp files for new META
+^META_new\.(?:json|yml)
+
+# Avoid travis-ci.org file
+^\.travis\.yml
+
+# Avoid AppVeyor file
+^\.?appveyor.yml
+#!end included
/home/roderich/perl5/perlbrew/perls/perl-5.30.3/lib/5.30.3/ExtUtils/MANIFEST.SKIP
+
+
+^MYMETA\.
+^typescript$
+^wip/
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/META.json
new/Module-ScanDeps-1.29/META.json
--- old/Module-ScanDeps-1.28/META.json 2020-08-06 09:58:12.000000000 +0200
+++ new/Module-ScanDeps-1.29/META.json 2020-08-16 14:24:10.000000000 +0200
@@ -64,6 +64,6 @@
},
"x_MailingList" : "mailto:[email protected]";
},
- "version" : "1.28",
- "x_serialization_backend" : "JSON::PP version 4.05"
+ "version" : "1.29",
+ "x_serialization_backend" : "JSON::PP version 4.02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/META.yml
new/Module-ScanDeps-1.29/META.yml
--- old/Module-ScanDeps-1.28/META.yml 2020-08-06 09:58:12.000000000 +0200
+++ new/Module-ScanDeps-1.29/META.yml 2020-08-16 14:24:10.000000000 +0200
@@ -34,5 +34,5 @@
MailingList: mailto:[email protected]
bugtracker: https://rt.cpan.org/Dist/Display.html?Queue=Module-ScanDeps
repository: git://github.com/rschupp/Module-ScanDeps.git
-version: '1.28'
+version: '1.29'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/lib/Module/ScanDeps.pm
new/Module-ScanDeps-1.29/lib/Module/ScanDeps.pm
--- old/Module-ScanDeps-1.28/lib/Module/ScanDeps.pm 2020-07-18
16:46:56.000000000 +0200
+++ new/Module-ScanDeps-1.29/lib/Module/ScanDeps.pm 2020-08-16
13:52:34.000000000 +0200
@@ -4,7 +4,7 @@
use warnings;
use vars qw( $VERSION @EXPORT @EXPORT_OK @ISA $CurrentPackage @IncludeLibs
$ScanFileRE );
-$VERSION = '1.28';
+$VERSION = '1.29';
@EXPORT = qw( scan_deps scan_deps_runtime );
@EXPORT_OK = qw( scan_line scan_chunk add_deps scan_deps_runtime
path_to_inc_name );
@@ -12,7 +12,7 @@
require Exporter;
our @ISA = qw(Exporter);
use constant is_insensitive_fs => (
- -s $0
+ -s $0
and (-s lc($0) || -1) == (-s uc($0) || -1)
and (-s lc($0) || -1) == -s $0
);
@@ -172,7 +172,7 @@
$perl_name = path_to_inc_name($path, $warn)
Assumes C<$path> refers to a perl file and does it's best to return the
-name as it would appear in %INC. Returns undef if no match was found
+name as it would appear in %INC. Returns undef if no match was found
and a prints a warning to STDERR if C<$warn> is true.
E.g. if C<$path> = perl/site/lib/Module/ScanDeps.pm then C<$perl_name>
@@ -187,8 +187,8 @@
=head2 B<$Module::ScanDeps::ScanFileRE>
-You can set this global variable to specify a regular expression to
-identify what files to scan. By default it includes all files of
+You can set this global variable to specify a regular expression to
+identify what files to scan. By default it includes all files of
the following types: .pm, .pl, .t and .al. Additionally, all files
without a suffix are considered.
@@ -224,7 +224,7 @@
'AnyDBM_File.pm' => [qw( SDBM_File.pm )],
'AnyEvent.pm' => 'sub',
'Authen/SASL.pm' => 'sub',
- 'B/Hooks/EndOfScope.pm' =>
+ 'B/Hooks/EndOfScope.pm' =>
[qw( B/Hooks/EndOfScope/PP.pm B/Hooks/EndOfScope/XS.pm )],
'Bio/AlignIO.pm' => 'sub',
'Bio/Assembly/IO.pm' => 'sub',
@@ -255,7 +255,7 @@
_glob_in_inc('Catalyst/DispatchType', 1));
},
'Catalyst/Engine.pm' => 'sub',
- 'CGI/Application/Plugin/Authentication.pm' =>
+ 'CGI/Application/Plugin/Authentication.pm' =>
[qw( CGI/Application/Plugin/Authentication/Store/Cookie.pm )],
'CGI/Application/Plugin/AutoRunmode.pm' => [qw( Attribute/Handlers.pm )],
'charnames.pm' => \&_unicore,
@@ -269,7 +269,7 @@
'Crypt/Random/Generator.pm' => sub {
_glob_in_inc('Crypt/Random/Provider', 1);
},
- 'Date/Manip.pm' =>
+ 'Date/Manip.pm' =>
[qw( Date/Manip/DM5.pm Date/Manip/DM6.pm )],
'Date/Manip/Base.pm' => sub {
_glob_in_inc('Date/Manip/Lang', 1);
@@ -290,7 +290,7 @@
'DBIx/Perlish.pm' => [qw( attributes.pm )],
'DBIx/ReportBuilder.pm' => 'sub',
'Device/ParallelPort.pm' => 'sub',
- 'Device/SerialPort.pm' =>
+ 'Device/SerialPort.pm' =>
[qw( termios.ph asm/termios.ph sys/termiox.ph sys/termios.ph
sys/ttycom.ph )],
'diagnostics.pm' => sub {
# shamelessly taken and adapted from diagnostics.pm
@@ -312,7 +312,7 @@
) {
return $_ if _find_in_inc($_);
}
-
+
for (
"$archlib/pods/perldiag.pod",
"$privlib/pods/perldiag-$Config{version}.pod",
@@ -365,7 +365,7 @@
return( grep /^JSON\/(PP|XS)/, _glob_in_inc('JSON', 1) );
},
'JSON/MaybeXS.pm' => [qw(
- Cpanel/JSON/XS.pm JSON/XS.pm JSON/PP.pm
+ Cpanel/JSON/XS.pm JSON/XS.pm JSON/PP.pm
)],
'List/MoreUtils.pm' => 'sub',
'List/SomeUtils.pm' => 'sub',
@@ -385,7 +385,7 @@
},
'LWP/Parallel/UserAgent.pm' => [qw( LWP/Parallel.pm )],
'LWP/UserAgent.pm' => sub {
- return(
+ return(
qw( URI/URL.pm URI/http.pm LWP/Protocol/http.pm ),
_glob_in_inc("LWP/Authen", 1),
_glob_in_inc("LWP/Protocol", 1),
@@ -523,13 +523,13 @@
_glob_in_inc('XMLRPC/Transport', 1);
},
'YAML.pm' => [qw( YAML/Loader.pm YAML/Dumper.pm
)],
- 'YAML/Any.pm' => sub {
+ 'YAML/Any.pm' => sub {
# try to figure out what YAML::Any would have used
my $impl = eval "use YAML::Any; YAML::Any->implementation;";
- unless ($@)
- {
- $impl =~ s!::!/!g;
- return "$impl.pm";
+ unless ($@)
+ {
+ $impl =~ s!::!/!g;
+ return "$impl.pm";
}
_glob_in_inc('YAML', 1); # fallback
},
@@ -616,7 +616,37 @@
}
}
- scan_deps_static(\%args);
+ {
+ # We want to correctly interprete statements like
+ #
+ # use FindBin;
+ # use lib "$FindBin/../lib";
+ #
+ # Find out what $FindBin::Bin etc would have been if "use FindBin" had
been
+ # called in the first file to analyze.
+ # (1) We don't want to reimplement FindBin, hence fake $0 locally (as
the path of the
+ # first file analyzed) and call FindBin::again().
+ # (2) If the caller of scan_deps() itself uses FindBin, we don't want
to overwrite
+ # the value of "their" $FindBin::Bin.
+
+ use FindBin;
+
+ local $FindBin::Bin;
+ local $FindBin::RealBin;
+ local $FindBin::Script;
+ local $FindBin::RealScript;
+
+ my $_0 = $args{files}[0];
+ local *0 = \$_0;
+ FindBin->again();
+
+ our $Bin = $FindBin::Bin;
+ our $RealBin = $FindBin::RealBin;
+ our $Script = $FindBin::Script;
+ our $RealScript = $FindBin::RealScript;
+
+ scan_deps_static(\%args);
+ }
if ($args{execute} or $args{compile}) {
scan_deps_runtime(
@@ -678,7 +708,7 @@
}else{ # no caching callback given
@pm = scan_file($file);
}
-
+
foreach my $pm (@pm){
add_deps(
used_by => $key,
@@ -704,7 +734,7 @@
# prevent utf8.pm from being scanned
$_skip->{$rv->{"utf8.pm"}{file}}++ if $rv->{"utf8.pm"};
-
+
while ($recurse) {
my $count = keys %$rv;
my @files = sort grep { defined $_->{file} && -T $_->{file} } values
%$rv;
@@ -803,7 +833,7 @@
foreach (split(/;/, $line)) {
s/^\s*//;
# handle single line blocks like 'do { package foo; use xx; }'
- s/^(?:do\s*)?\{\s*//;
+ s/^(?:do\s*)?\{\s*//;
s/\}$//;
if (/^package\s+(\w+)/) {
@@ -827,13 +857,13 @@
# be specified for the "autouse" and "if" pragmas, e.g.
# use autouse Module => qw(func1 func2);
# use autouse "Module", qw(func1);
- # To avoid to parse them ourself, we simply try to eval the
+ # To avoid to parse them ourself, we simply try to eval the
# string after the pragma (in a list context). The MODULE
# should be the first ("autouse") or second ("if") element
# of the list.
my $module;
- {
- no strict; no warnings;
+ {
+ no strict; no warnings;
if ($pragma eq "autouse") {
($module) = eval $args;
}
@@ -841,7 +871,7 @@
# The syntax of the "if" pragma is
# use if COND, MODULE => ARGUMENTS
# The COND may contain undefined functions (i.e. undefined
- # in Module::ScanDeps' context) which would throw an
+ # in Module::ScanDeps' context) which would throw an
# exception. Sneak "1 || " in front of COND so that
# COND will not be evaluated. This will work in most
# cases, but there are operators with lower precedence
@@ -864,7 +894,7 @@
foreach my $dir (do { no strict; no warnings; eval $libs }) {
next unless defined $dir;
my @dirs = $dir;
- push @dirs, "$dir/$ver", "$dir/$archname",
"$dir/$ver/$archname"
+ push @dirs, "$dir/$ver", "$dir/$archname",
"$dir/$ver/$archname"
if $how =~ /lib/;
foreach (@dirs) {
unshift(@INC, $_) if -d $_;
@@ -884,7 +914,7 @@
sub _build_loader_regexp {
my $loaders = shift;
my $prefix = (@_ && $_[0]) ? $_[0].'::' : '';
-
+
my $loader = join '|', map quotemeta($_), split /\s+/, $loaders;
my $regexp = qr/^\s* use \s+ ($loader)(?!\:) \b \s* (.*)/sx;
# WARNING: This doesn't take the prefix into account
@@ -919,7 +949,7 @@
$_ = $chunk;
s/^\s*//;
# handle single line blocks like 'do { package foo; use xx; }'
- s/^(?:do\s*)?\{\s*//;
+ s/^(?:do\s*)?\{\s*//;
s/\}\s*$//;
# TODO: There's many more of these "loader" type modules on CPAN!
@@ -973,7 +1003,7 @@
return \@mods if @mods;
}
if (/\b(?:en|de)code\(\s*['"]?([-\w]+)/) {
- return [qw( Encode.pm ), _find_encoding($1)];
+ return [qw( Encode.pm ), _find_encoding($1)];
}
return $1 if /\b do \s+ ([\w:\.\-\\\/\"\']*)/x;
@@ -1042,7 +1072,7 @@
$file = File::Spec->rel2abs($file);
$file =~ s|\\|\/|go;
- # Avoid duplicates that can arise due to case differences that don't
actually
+ # Avoid duplicates that can arise due to case differences that don't
actually
# matter on a case tolerant system
if (File::Spec->case_tolerant()) {
foreach my $key (keys %$rv) {
@@ -1076,7 +1106,7 @@
if ( (!File::Spec->case_tolerant() && !grep { $_ eq $used_by } @{
$rv->{$module}{used_by} })
or ( File::Spec->case_tolerant() && !grep { lc($_) eq
lc($used_by) } @{ $rv->{$module}{used_by} }));
- # We assume here that another _add_info will be called to provide the
other parts of $rv->{$used_by}
+ # We assume here that another _add_info will be called to provide the
other parts of $rv->{$used_by}
push @{ $rv->{$used_by}{uses} }, $module
if ( (!File::Spec->case_tolerant() && !grep { $_ eq $module } @{
$rv->{$used_by}{uses} })
or ( File::Spec->case_tolerant() && !grep { lc($_) eq lc($module)
} @{ $rv->{$used_by}{uses} }));
@@ -1187,7 +1217,7 @@
# like _glob_in_inc, but looks only at the first level
# (i.e. the children of $subdir)
# NOTE: File::Find has no public notion of the depth of the traversal
-# in its "wanted" callback, so it's not helpful
+# in its "wanted" callback, so it's not helpful
sub _glob_in_inc_1 {
my $subdir = shift;
my $pm_only = shift;
@@ -1199,7 +1229,7 @@
my $dir = "$inc/$subdir";
next unless -d $dir;
- opendir(my $dh, $dir) or next;
+ opendir(my $dh, $dir) or next;
my @names = map { "$subdir/$_" } grep { -f "$dir/$_" } readdir $dh;
closedir $dh;
@@ -1343,10 +1373,10 @@
...
# NOTE: When compiling the block will run as the last CHECK block;
- # when executing the block will run as the first END block and
+ # when executing the block will run as the first END block and
# the programs continues.
- print $ih
- $execute ? "END\n" : "CHECK\n",
+ print $ih
+ $execute ? "END\n" : "CHECK\n",
<<'...';
{
require DynaLoader;
@@ -1389,12 +1419,12 @@
@_INC = grep { !ref $_ } @_INC;
my @dlls = grep { defined $_ && -e $_ }
Module::ScanDeps::DataFeed::_dl_shared_objects();
- my @shared_objects = @dlls;
+ my @shared_objects = @dlls;
push @shared_objects, grep { s/\.\Q$dlext\E$/.bs/ && -e $_ } @dlls;
# write data file
my $data_file = $ENV{MSD_DATA_FILE};
- open my $fh, ">", $data_file
+ open my $fh, ">", $data_file
or die "Couldn't open $data_file: $!\n";
print $fh Data::Dumper::Dumper(
{
@@ -1452,11 +1482,11 @@
$execute ? @$execute : ());
die $execute
- ? "SYSTEM ERROR in executing $file @$execute: $rc"
- : "SYSTEM ERROR in compiling $file: $rc"
+ ? "SYSTEM ERROR in executing $file @$execute: $rc"
+ : "SYSTEM ERROR in compiling $file: $rc"
unless $rc == 0;
-
- my $info = do $data_file
+
+ my $info = do $data_file
or die "error extracting info from -c/-x file: ", ($@ || "can't read
$data_file: $!");
return $info;
@@ -1468,7 +1498,7 @@
my $rv = {};
- my $incs = join('|', sort { length($b) <=> length($a) }
+ my $incs = join('|', sort { length($b) <=> length($a) }
map { s:\\:/:g; quotemeta($_) } @{
$info->{'@INC'} });
my $i = is_insensitive_fs() ? "i" : "";
my $strip_inc_prefix = qr{^(?$i:$incs)/};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-ScanDeps-1.28/t/1-static_functional_interface_real.t
new/Module-ScanDeps-1.29/t/1-static_functional_interface_real.t
--- old/Module-ScanDeps-1.28/t/1-static_functional_interface_real.t
2016-11-21 18:48:53.000000000 +0100
+++ new/Module-ScanDeps-1.29/t/1-static_functional_interface_real.t
2020-08-16 13:25:54.000000000 +0200
@@ -7,9 +7,6 @@
use Test::More qw(no_plan); # no_plan because the number of objects in the
dependency tree (and hence the number of tests) can change
use Utils;
-my $rv;
-my $root;
-
##############################################################
# Tests compilation of Module::ScanDeps
##############################################################
@@ -21,7 +18,7 @@
# majority of files scanned aren't fixed, the checks are
# necessarily loose.
##############################################################
-$root = $0;
+my $root = $0;
my @deps = qw(
Carp.pm Config.pm Exporter.pm
@@ -29,7 +26,7 @@
);
# Functional i/f
-$rv = scan_deps($root);
+my $rv = scan_deps($root);
generic_scandeps_rv_test($rv, [$0], \@deps);
__END__
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/t/18-findbin.t
new/Module-ScanDeps-1.29/t/18-findbin.t
--- old/Module-ScanDeps-1.28/t/18-findbin.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-ScanDeps-1.29/t/18-findbin.t 2020-08-16 13:56:46.000000000
+0200
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use FindBin;
+
+BEGIN { use_ok( 'Module::ScanDeps' ); }
+
+my $saved_bin = $FindBin::Bin;
+
+my $deps = scan_deps(files => [ 't/data/use-findbin.pl' ], recurse => 1);
+ok($deps->{"Net/FTP.pm"}, q[Net::FTP seen in module found via 'use lib
"$FindBin::Bin/..."']);
+
+is($FindBin::Bin, $saved_bin, '$FindBin::Bin unchanged after call to
scan_deps()');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/t/data/modules/Foo.pm
new/Module-ScanDeps-1.29/t/data/modules/Foo.pm
--- old/Module-ScanDeps-1.28/t/data/modules/Foo.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-ScanDeps-1.29/t/data/modules/Foo.pm 2020-08-16
13:17:59.000000000 +0200
@@ -0,0 +1,5 @@
+package Foo;
+
+use Net::FTP;
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-ScanDeps-1.28/t/data/use-findbin.pl
new/Module-ScanDeps-1.29/t/data/use-findbin.pl
--- old/Module-ScanDeps-1.28/t/data/use-findbin.pl 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-ScanDeps-1.29/t/data/use-findbin.pl 2020-08-16
13:17:48.000000000 +0200
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/modules";
+
+use Foo;
+
