Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-File-Which for openSUSE:Factory
checked in at 2021-03-24 16:10:48
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-File-Which (Old)
and /work/SRC/openSUSE:Factory/.perl-File-Which.new.2401 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Which"
Wed Mar 24 16:10:48 2021 rev:29 rq:880560 version:1.24
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-File-Which/perl-File-Which.changes
2019-01-05 14:41:05.560544703 +0100
+++
/work/SRC/openSUSE:Factory/.perl-File-Which.new.2401/perl-File-Which.changes
2021-03-24 16:10:49.743805324 +0100
@@ -1,0 +2,10 @@
+Sat Mar 20 03:07:43 UTC 2021 - Tina M??ller <[email protected]>
+
+- updated to 1.24
+ see /usr/share/doc/packages/perl-File-Which/Changes
+
+ 1.24 2021-03-19 05:50:14 -0600
+ - Documentation improvements
+ - Moved repository to new github org
+
+-------------------------------------------------------------------
Old:
----
File-Which-1.23.tar.gz
New:
----
File-Which-1.24.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-File-Which.spec ++++++
--- /var/tmp/diff_new_pack.bpvvq3/_old 2021-03-24 16:10:50.275805883 +0100
+++ /var/tmp/diff_new_pack.bpvvq3/_new 2021-03-24 16:10:50.279805887 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-File-Which
#
-# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2021 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,18 +16,16 @@
#
+%define cpan_name File-Which
Name: perl-File-Which
-Version: 1.23
+Version: 1.24
Release: 0
-%define cpan_name File-Which
Summary: Perl implementation of the which utility as an API
License: Artistic-1.0 OR GPL-1.0-or-later
-Group: Development/Libraries/Perl
-Url: https://metacpan.org/release/%{cpan_name}
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/P/PL/PLICEASE/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
%{perl_requires}
@@ -52,15 +50,15 @@
interface to this API.
%prep
-%setup -q -n %{cpan_name}-%{version}
-find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644
+%autosetup -n %{cpan_name}-%{version}
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
# MANUAL BEGIN
chmod a+x corpus/test-bin-unix/0
# MANUAL END
%build
perl Makefile.PL INSTALLDIRS=vendor
-make %{?_smp_mflags}
+%make_build
%check
make test
@@ -71,7 +69,6 @@
%perl_gen_filelist
%files -f %{name}.files
-%defattr(-,root,root,755)
%doc author.yml Changes README
%license LICENSE
++++++ File-Which-1.23.tar.gz -> File-Which-1.24.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/Changes new/File-Which-1.24/Changes
--- old/File-Which-1.23/Changes 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/Changes 2021-03-19 12:50:16.000000000 +0100
@@ -1,5 +1,9 @@
Revision history for File-Which
+1.24 2021-03-19 05:50:14 -0600
+ - Documentation improvements
+ - Moved repository to new github org
+
1.23 2018-12-31 14:28:16 -0500
- Internally use IS_WIN instead of IS_DOS for DOS/Windows style
operating systems. This is 2018 (almost 2019) after all.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/MANIFEST new/File-Which-1.24/MANIFEST
--- old/File-Which-1.23/MANIFEST 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/MANIFEST 2021-03-19 12:50:16.000000000 +0100
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v6.012.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v6.017.
Changes
INSTALL
LICENSE
@@ -20,10 +20,13 @@
corpus/test-bin-win/test2.bat
dist.ini
lib/File/Which.pm
+perlcriticrc
t/00_diag.t
t/01_use.t
t/file_which.t
+xt/author/critic.t
xt/author/eol.t
+xt/author/filename.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/META.json
new/File-Which-1.24/META.json
--- old/File-Which-1.23/META.json 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/META.json 2021-03-19 12:50:16.000000000 +0100
@@ -6,7 +6,7 @@
"Graham Ollis <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 6.012, CPAN::Meta::Converter version
2.150010",
+ "generated_by" : "Dist::Zilla version 6.017, CPAN::Meta::Converter version
2.150010",
"license" : [
"perl_5"
],
@@ -24,7 +24,14 @@
},
"develop" : {
"requires" : {
+ "File::Basename" : "0",
+ "File::Find" : "0",
+ "File::chdir" : "0",
"FindBin" : "0",
+ "Perl::Critic" : "0",
+ "Test2::Require::Module" : "0.000060",
+ "Test2::Tools::PerlCritic" : "0",
+ "Test2::V0" : "0.000060",
"Test::EOL" : "0",
"Test::Fixme" : "0.07",
"Test::More" : "0.47",
@@ -39,6 +46,7 @@
},
"runtime" : {
"requires" : {
+ "base" : "0",
"perl" : "5.006"
}
},
@@ -52,18 +60,19 @@
"release_status" : "stable",
"resources" : {
"bugtracker" : {
- "web" : "https://github.com/plicease/File-Which/issues";
+ "web" : "https://github.com/uperl/File-Which/issues";
},
"homepage" : "https://metacpan.org/pod/File::Which";,
"repository" : {
"type" : "git",
- "url" : "git://github.com/plicease/File-Which.git",
- "web" : "https://github.com/plicease/File-Which";
+ "url" : "git://github.com/uperl/File-Which.git",
+ "web" : "https://github.com/uperl/File-Which";
}
},
- "version" : "1.23",
- "x_generated_by_perl" : "v5.29.6",
- "x_serialization_backend" : "Cpanel::JSON::XS version 4.08",
+ "version" : "1.24",
+ "x_generated_by_perl" : "v5.33.7",
+ "x_serialization_backend" : "Cpanel::JSON::XS version 4.25",
+ "x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later",
"x_use_unsafe_inc" : 0
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/META.yml new/File-Which-1.24/META.yml
--- old/File-Which-1.23/META.yml 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/META.yml 2021-03-19 12:50:16.000000000 +0100
@@ -11,19 +11,21 @@
ExtUtils::MakeMaker: '0'
perl: '5.006'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 6.012, CPAN::Meta::Converter version
2.150010'
+generated_by: 'Dist::Zilla version 6.017, CPAN::Meta::Converter version
2.150010'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: '1.4'
name: File-Which
requires:
+ base: '0'
perl: '5.006'
resources:
- bugtracker: https://github.com/plicease/File-Which/issues
+ bugtracker: https://github.com/uperl/File-Which/issues
homepage: https://metacpan.org/pod/File::Which
- repository: git://github.com/plicease/File-Which.git
-version: '1.23'
-x_generated_by_perl: v5.29.6
+ repository: git://github.com/uperl/File-Which.git
+version: '1.24'
+x_generated_by_perl: v5.33.7
x_serialization_backend: 'YAML::Tiny version 1.73'
+x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
x_use_unsafe_inc: 0
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/Makefile.PL
new/File-Which-1.24/Makefile.PL
--- old/File-Which-1.23/Makefile.PL 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/Makefile.PL 2021-03-19 12:50:16.000000000 +0100
@@ -1,11 +1,11 @@
-use strict; use warnings;
BEGIN {
+ use strict; use warnings;
unless(eval q{ use 5.006; 1}) {
print "Perl 5.006 or better required\n";
exit;
}
}
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v6.012.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v6.017.
use strict;
use warnings;
@@ -23,11 +23,13 @@
"LICENSE" => "perl",
"MIN_PERL_VERSION" => "5.006",
"NAME" => "File::Which",
- "PREREQ_PM" => {},
+ "PREREQ_PM" => {
+ "base" => 0
+ },
"TEST_REQUIRES" => {
"Test::More" => "0.47"
},
- "VERSION" => "1.23",
+ "VERSION" => "1.24",
"test" => {
"TESTS" => "t/*.t"
}
@@ -35,7 +37,8 @@
my %FallbackPrereqs = (
- "Test::More" => "0.47"
+ "Test::More" => "0.47",
+ "base" => 0
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/README new/File-Which-1.24/README
--- old/File-Which-1.23/README 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/README 2021-03-19 12:50:16.000000000 +0100
@@ -4,7 +4,7 @@
VERSION
- version 1.23
+ version 1.24
SYNOPSIS
@@ -140,7 +140,7 @@
use File::Which qw( which );
use Shell::Guess;
-
+
my $path = do {
my $is_power = Shell::Guess->running_shell->is_power;
local $File::Which::IMPLICIT_CURRENT_DIR = !$is_power;
@@ -179,6 +179,8 @@
IPC::Cmd
+ Requires Perl 5.8.3. Included as part of the Perl core as of 5.9.5.
+
This module provides (among other things) a can_run function, which
is similar to which. It is a much heavier module since it does a lot
more, and if you use can_run it pulls in ExtUtils::MakeMaker. This
@@ -201,9 +203,14 @@
Devel::CheckBin
+ Requires Perl 5.8.1.
+
This module purports to "check that a command is available", but does
not provide any documentation on how you might use it.
+ This module also relies on ExtUtils::MakeMaker so has the same
+ overhead burdens as IPC::Cmd.
+
AUTHORS
* Per Einar Ellefsen <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/dist.ini new/File-Which-1.24/dist.ini
--- old/File-Which-1.23/dist.ini 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/dist.ini 2021-03-19 12:50:16.000000000 +0100
@@ -5,16 +5,20 @@
license = Perl_5
copyright_holder = Per Einar Ellefsen <[email protected]>
copyright_year = 2002
-version = 1.23
+version = 1.24
[@Author::Plicease]
-:version = 2.00
-travis_status = 1
+:version = 2.44
release_tests = 1
installer = MakeMaker
release_tests_skip = changes\.t
upgrade = Test::More = 0.47
-appveyor = rxvw61235dcy61gq
+github_user = uperl
+workflow = linux
+workflow = windows
+workflow = macos
+workflow = msys2-mingw
+workflow = cygwin
[RemovePrereqs]
remove = strict
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/lib/File/Which.pm
new/File-Which-1.24/lib/File/Which.pm
--- old/File-Which-1.23/lib/File/Which.pm 2018-12-31 20:28:19.000000000
+0100
+++ new/File-Which-1.24/lib/File/Which.pm 2021-03-19 12:50:16.000000000
+0100
@@ -2,14 +2,13 @@
use strict;
use warnings;
-use Exporter ();
+use base qw( Exporter );
use File::Spec ();
# ABSTRACT: Perl implementation of the which utility as an API
-our $VERSION = '1.23'; # VERSION
+our $VERSION = '1.24'; # VERSION
-our @ISA = 'Exporter';
our @EXPORT = 'which';
our @EXPORT_OK = 'where';
@@ -29,7 +28,7 @@
if ( IS_WIN ) {
# WinNT. PATHEXT might be set on Cygwin, but not used.
if ( $ENV{PATHEXT} ) {
- push @PATHEXT, split ';', $ENV{PATHEXT};
+ push @PATHEXT, split /;/, $ENV{PATHEXT};
} else {
# Win9X or other: doesn't have PATHEXT, so needs hardcoded.
push @PATHEXT, qw{.com .exe .bat};
@@ -49,7 +48,7 @@
return undef unless defined $exec;
return undef if $exec eq '';
- my $all = wantarray;
+ my $all = wantarray; ## no critic (Freenode::Wantarray)
my @results = ();
# check for aliases first
@@ -79,7 +78,7 @@
}
}
- return $exec
+ return $exec ## no critic
(ValuesAndExpressions::ProhibitMixedBooleanOperators)
if !IS_VMS and !IS_MAC and !IS_WIN and $exec =~ /\// and -f $exec
and -x $exec;
my @path;
@@ -88,7 +87,7 @@
# add the implicit . for you on MSWin32,
# but we may or may not want to include
# that.
- @path = split(';', $ENV{PATH});
+ @path = split /;/, $ENV{PATH};
s/"//g for @path;
@path = grep length, @path;
} else {
@@ -110,12 +109,12 @@
-x _
or (
# MacOS doesn't mark as executable so we check -e
- IS_MAC
+ IS_MAC ## no critic
(ValuesAndExpressions::ProhibitMixedBooleanOperators)
||
(
( IS_WIN or IS_CYG )
and
- grep {
+ grep { ## no critic (BuiltinFunctions::ProhibitBooleanGrep)
$file =~ /$_\z/i
} @PATHEXT[1..$#PATHEXT]
)
@@ -160,7 +159,7 @@
=head1 VERSION
-version 1.23
+version 1.24
=head1 SYNOPSIS
@@ -296,7 +295,7 @@
use File::Which qw( which );
use Shell::Guess;
-
+
my $path = do {
my $is_power = Shell::Guess->running_shell->is_power;
local $File::Which::IMPLICIT_CURRENT_DIR = !$is_power;
@@ -338,6 +337,8 @@
=item L<IPC::Cmd>
+Requires Perl 5.8.3. Included as part of the Perl core as of 5.9.5.
+
This module provides (among other things) a C<can_run> function, which is
similar to C<which>. It is a much heavier module since it does a lot more,
and if you use C<can_run> it pulls in L<ExtUtils::MakeMaker>. This combination
@@ -359,9 +360,14 @@
=item L<Devel::CheckBin>
+Requires Perl 5.8.1.
+
This module purports to "check that a command is available", but does not
provide any documentation on how you might use it.
+This module also relies on L<ExtUtils::MakeMaker> so has the same overhead
+burdens as L<IPC::Cmd>.
+
=back
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/perlcriticrc
new/File-Which-1.24/perlcriticrc
--- old/File-Which-1.23/perlcriticrc 1970-01-01 01:00:00.000000000 +0100
+++ new/File-Which-1.24/perlcriticrc 2021-03-19 12:50:16.000000000 +0100
@@ -0,0 +1,59 @@
+severity = 1
+only = 1
+
+[Freenode::ArrayAssignAref]
+[Freenode::BarewordFilehandles]
+[Freenode::ConditionalDeclarations]
+[Freenode::ConditionalImplicitReturn]
+[Freenode::DeprecatedFeatures]
+[Freenode::DiscouragedModules]
+[Freenode::DollarAB]
+[Freenode::Each]
+[Freenode::EmptyReturn]
+[Freenode::IndirectObjectNotation]
+[Freenode::LexicalForeachIterator]
+[Freenode::LoopOnHash]
+[Freenode::ModPerl]
+[Freenode::OpenArgs]
+[Freenode::OverloadOptions]
+[Freenode::POSIXImports]
+[Freenode::PackageMatchesFilename]
+[Freenode::PreferredAlternatives]
+[Freenode::StrictWarnings]
+extra_importers = Test2::V0
+[Freenode::Threads]
+[Freenode::Wantarray]
+[Freenode::WarningsSwitch]
+[Freenode::WhileDiamondDefaultAssignment]
+
+[BuiltinFunctions::ProhibitBooleanGrep]
+[BuiltinFunctions::ProhibitStringyEval]
+[BuiltinFunctions::ProhibitStringySplit]
+[BuiltinFunctions::ProhibitVoidGrep]
+[BuiltinFunctions::ProhibitVoidMap]
+[ClassHierarchies::ProhibitExplicitISA]
+[ClassHierarchies::ProhibitOneArgBless]
+[CodeLayout::ProhibitHardTabs]
+allow_leading_tabs = 0
+[CodeLayout::ProhibitTrailingWhitespace]
+[CodeLayout::RequireConsistentNewlines]
+[ControlStructures::ProhibitLabelsWithSpecialBlockNames]
+[ControlStructures::ProhibitMutatingListFunctions]
+[ControlStructures::ProhibitUnreachableCode]
+[InputOutput::ProhibitBarewordFileHandles]
+[InputOutput::ProhibitJoinedReadline]
+[InputOutput::ProhibitTwoArgOpen]
+[Miscellanea::ProhibitFormats]
+[Miscellanea::ProhibitUselessNoCritic]
+[Modules::ProhibitConditionalUseStatements]
+;[Modules::RequireEndWithOne]
+[Modules::RequireNoMatchVarsWithUseEnglish]
+[Objects::ProhibitIndirectSyntax]
+[RegularExpressions::ProhibitUselessTopic]
+[Subroutines::ProhibitNestedSubs]
+[ValuesAndExpressions::ProhibitLeadingZeros]
+[ValuesAndExpressions::ProhibitMixedBooleanOperators]
+[ValuesAndExpressions::ProhibitSpecialLiteralHeredocTerminator]
+[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
+[Variables::ProhibitPerl4PackageNames]
+[Variables::ProhibitUnusedVariables]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/t/00_diag.t
new/File-Which-1.24/t/00_diag.t
--- old/File-Which-1.23/t/00_diag.t 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/t/00_diag.t 2021-03-19 12:50:16.000000000 +0100
@@ -29,7 +29,7 @@
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
-our $format = "%-${max}s %s";
+our $format = "%-${max}s %s";
spacer;
@@ -38,13 +38,13 @@
if(@keys > 0)
{
diag "$_=$ENV{$_}" for @keys;
-
+
if($ENV{PERL5LIB})
{
spacer;
diag "PERL5LIB path";
diag $_ for split $Config{path_sep}, $ENV{PERL5LIB};
-
+
}
elsif($ENV{PERLLIB})
{
@@ -52,17 +52,19 @@
diag "PERLLIB path";
diag $_ for split $Config{path_sep}, $ENV{PERLLIB};
}
-
+
spacer;
}
-diag sprintf $format, 'perl ', $];
+diag sprintf $format, 'perl', "$] $^O $Config{archname}";
foreach my $module (@modules)
{
- if(eval qq{ require $module; 1 })
+ my $pm = "$module.pm";
+ $pm =~ s{::}{/}g;
+ if(eval { require $pm; 1 })
{
- my $ver = eval qq{ \$$module\::VERSION };
+ my $ver = eval { $module->VERSION };
$ver = 'undef' unless defined $ver;
diag sprintf $format, $module, $ver;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/t/file_which.t
new/File-Which-1.24/t/file_which.t
--- old/File-Which-1.23/t/file_which.t 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/t/file_which.t 2021-03-19 12:50:16.000000000 +0100
@@ -128,7 +128,7 @@
$zero,
"zero = $zero"
);
-
+
my $empty_string = which '';
is(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/critic.t
new/File-Which-1.24/xt/author/critic.t
--- old/File-Which-1.23/xt/author/critic.t 1970-01-01 01:00:00.000000000
+0100
+++ new/File-Which-1.24/xt/author/critic.t 2021-03-19 12:50:16.000000000
+0100
@@ -0,0 +1,14 @@
+use Test2::Require::Module 'Test2::Tools::PerlCritic';
+use Test2::Require::Module 'Perl::Critic';
+use Test2::Require::Module 'Perl::Critic::Freenode';
+use Test2::V0;
+use Perl::Critic;
+use Test2::Tools::PerlCritic;
+
+my $critic = Perl::Critic->new(
+ -profile => 'perlcriticrc',
+);
+
+perl_critic_ok ['lib','t'], $critic;
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/eol.t
new/File-Which-1.24/xt/author/eol.t
--- old/File-Which-1.23/xt/author/eol.t 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/xt/author/eol.t 2021-03-19 12:50:16.000000000 +0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::EOL'
+BEGIN {
+ plan skip_all => 'test requires Test::EOL'
unless eval q{ use Test::EOL; 1 };
};
use Test::EOL;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/filename.t
new/File-Which-1.24/xt/author/filename.t
--- old/File-Which-1.23/xt/author/filename.t 1970-01-01 01:00:00.000000000
+0100
+++ new/File-Which-1.24/xt/author/filename.t 2021-03-19 12:50:16.000000000
+0100
@@ -0,0 +1,22 @@
+use Test2::V0 -no_srand => 1;
+use File::chdir;
+use File::Find qw( find );
+use File::Basename qw( basename );
+
+my $basename = basename $CWD;
+
+my $dev = $basename =~ /^([A-Z]+)(-[A-Z]+)*$/i;
+
+local $CWD = '..';
+
+find(sub {
+ my $path = $File::Find::name;
+ return if $path =~ /^$basename\/\./;
+ return if $dev && $path =~ /^$basename\/$basename-/;
+ my $length = length($path);
+ cmp_ok $length, '<', 100, "$path";
+}, $basename);
+
+note "dev = $dev";
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/no_tabs.t
new/File-Which-1.24/xt/author/no_tabs.t
--- old/File-Which-1.23/xt/author/no_tabs.t 2018-12-31 20:28:19.000000000
+0100
+++ new/File-Which-1.24/xt/author/no_tabs.t 2021-03-19 12:50:16.000000000
+0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::NoTabs'
+BEGIN {
+ plan skip_all => 'test requires Test::NoTabs'
unless eval q{ use Test::NoTabs; 1 };
};
use Test::NoTabs;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/pod.t
new/File-Which-1.24/xt/author/pod.t
--- old/File-Which-1.23/xt/author/pod.t 2018-12-31 20:28:19.000000000 +0100
+++ new/File-Which-1.24/xt/author/pod.t 2021-03-19 12:50:16.000000000 +0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Pod'
+BEGIN {
+ plan skip_all => 'test requires Test::Pod'
unless eval q{ use Test::Pod; 1 };
};
use Test::Pod;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/pod_coverage.t
new/File-Which-1.24/xt/author/pod_coverage.t
--- old/File-Which-1.23/xt/author/pod_coverage.t 2018-12-31
20:28:19.000000000 +0100
+++ new/File-Which-1.24/xt/author/pod_coverage.t 2021-03-19
12:50:16.000000000 +0100
@@ -1,13 +1,15 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
+BEGIN {
plan skip_all => 'test requires 5.010 or better'
unless $] >= 5.010;
- plan skip_all => 'test requires Test::Pod::Coverage'
+ plan skip_all => 'test requires Test::Pod::Coverage'
unless eval q{ use Test::Pod::Coverage; 1 };
plan skip_all => 'test requires YAML'
unless eval q{ use YAML; 1; };
+ plan skip_all => 'test does not always work in cip check'
+ if defined $ENV{CIPSTATIC} && $ENV{CIPSTATIC} eq 'true';
};
use Test::Pod::Coverage;
use YAML qw( LoadFile );
@@ -62,12 +64,12 @@
SKIP: {
my($is_private_class) = map { 1 } grep { $class =~ $_->{regex} &&
$_->{all} } @private_classes;
skip "private class: $class", 1 if $is_private_class;
-
+
my %methods = map {; $_ => 1 } map { split /,/, $_->{method} } grep {
$class =~ $_->{regex} } @private_classes;
$methods{$_} = 1 for keys %private_methods;
-
+
my $also_private = eval 'qr{^' . join('|', keys %methods ) . '$}';
-
+
pod_coverage_ok $class, { also_private => [$also_private] };
};
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/pod_spelling_common.t
new/File-Which-1.24/xt/author/pod_spelling_common.t
--- old/File-Which-1.23/xt/author/pod_spelling_common.t 2018-12-31
20:28:19.000000000 +0100
+++ new/File-Which-1.24/xt/author/pod_spelling_common.t 2021-03-19
12:50:16.000000000 +0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
+BEGIN {
+ plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
plan skip_all => 'test requires YAML'
unless eval q{ use YAML qw( LoadFile ); 1 };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/pod_spelling_system.t
new/File-Which-1.24/xt/author/pod_spelling_system.t
--- old/File-Which-1.23/xt/author/pod_spelling_system.t 2018-12-31
20:28:19.000000000 +0100
+++ new/File-Which-1.24/xt/author/pod_spelling_system.t 2021-03-19
12:50:16.000000000 +0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Spelling'
+BEGIN {
+ plan skip_all => 'test requires Test::Spelling'
unless eval q{ use Test::Spelling; 1 };
plan skip_all => 'test requires YAML'
unless eval q{ use YAML; 1; };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/strict.t
new/File-Which-1.24/xt/author/strict.t
--- old/File-Which-1.23/xt/author/strict.t 2018-12-31 20:28:19.000000000
+0100
+++ new/File-Which-1.24/xt/author/strict.t 2021-03-19 12:50:16.000000000
+0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Strict'
+BEGIN {
+ plan skip_all => 'test requires Test::Strict'
unless eval q{ use Test::Strict; 1 };
};
use Test::Strict;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/author/version.t
new/File-Which-1.24/xt/author/version.t
--- old/File-Which-1.23/xt/author/version.t 2018-12-31 20:28:19.000000000
+0100
+++ new/File-Which-1.24/xt/author/version.t 2021-03-19 12:50:16.000000000
+0100
@@ -6,10 +6,10 @@
plan skip_all => "test requires Test::Version 2.00"
unless eval q{
- use Test::Version 2.00 qw( version_all_ok ), {
+ use Test::Version 2.00 qw( version_all_ok ), {
has_version => 1,
filename_match => sub { $_[0] !~ m{/(ConfigData|Install/Files)\.pm$} },
- };
+ };
1
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Which-1.23/xt/release/fixme.t
new/File-Which-1.24/xt/release/fixme.t
--- old/File-Which-1.23/xt/release/fixme.t 2018-12-31 20:28:19.000000000
+0100
+++ new/File-Which-1.24/xt/release/fixme.t 2021-03-19 12:50:16.000000000
+0100
@@ -1,8 +1,8 @@
use strict;
use warnings;
use Test::More;
-BEGIN {
- plan skip_all => 'test requires Test::Fixme'
+BEGIN {
+ plan skip_all => 'test requires Test::Fixme'
unless eval q{ use Test::Fixme 0.14; 1 };
};
use Test::Fixme 0.07;
