Hello community, here is the log from the commit of package perl-Benchmark-Timer for openSUSE:Factory checked in at 2018-07-28 12:40:45 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Benchmark-Timer (Old) and /work/SRC/openSUSE:Factory/.perl-Benchmark-Timer.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Benchmark-Timer" Sat Jul 28 12:40:45 2018 rev:7 rq:624405 version:0.7112 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Benchmark-Timer/perl-Benchmark-Timer.changes 2017-10-03 23:18:32.791766387 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Benchmark-Timer.new/perl-Benchmark-Timer.changes 2018-07-28 12:40:49.300474118 +0200 @@ -1,0 +2,27 @@ +Tue Jul 17 05:05:06 UTC 2018 - co...@suse.com + +- updated to 0.7112 + see /usr/share/doc/packages/perl-Benchmark-Timer/CHANGES + + Version 0.7112: + - Fix Makefile.PL warning + - Fix deleting of inc during release process + - Better fix for AutomatedTester warning + + Version 0.7111: + - Update META.yml + + Version 0.7110: + - Trying once again to fix the compile test on windows + + Version 0.7109: + - Add missing URI::Escape dependency + - Check in standard tests, including one that skips the compile check on Windows + +------------------------------------------------------------------- +Fri Jul 6 05:05:03 UTC 2018 - co...@suse.com + +- updated to 0.7108 + see /usr/share/doc/packages/perl-Benchmark-Timer/CHANGES + +------------------------------------------------------------------- Old: ---- Benchmark-Timer-0.7107.tar.gz New: ---- Benchmark-Timer-0.7112.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Benchmark-Timer.spec ++++++ --- /var/tmp/diff_new_pack.ChXXNK/_old 2018-07-28 12:40:50.048475555 +0200 +++ /var/tmp/diff_new_pack.ChXXNK/_new 2018-07-28 12:40:50.052475563 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Benchmark-Timer # -# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2018 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 @@ -17,12 +17,12 @@ Name: perl-Benchmark-Timer -Version: 0.7107 +Version: 0.7112 Release: 0 #Upstream: GPL-2.0+ %define cpan_name Benchmark-Timer Summary: Benchmarking with statistical confidence -License: GPL-2.0+ +License: GPL-2.0-or-later Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Benchmark-Timer/ Source0: https://cpan.metacpan.org/authors/id/D/DC/DCOPPIT/%{cpan_name}-%{version}.tar.gz @@ -31,7 +31,8 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(URI::Escape) +BuildRequires: perl(Test::Compile) +BuildRequires: perl(UNIVERSAL::require) %{perl_requires} %description ++++++ Benchmark-Timer-0.7107.tar.gz -> Benchmark-Timer-0.7112.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/CHANGES new/Benchmark-Timer-0.7112/CHANGES --- old/Benchmark-Timer-0.7107/CHANGES 2015-05-03 04:31:22.000000000 +0200 +++ new/Benchmark-Timer-0.7112/CHANGES 2018-07-12 04:53:12.000000000 +0200 @@ -1,3 +1,25 @@ +Version 0.7112: +- Fix Makefile.PL warning +- Fix deleting of inc during release process +- Better fix for AutomatedTester warning + +Version 0.7111: +- Update META.yml + +Version 0.7110: +- Trying once again to fix the compile test on windows + +Version 0.7109: +- Add missing URI::Escape dependency +- Check in standard tests, including one that skips the compile check on Windows + +Version 0.7108: +- Add standard tests +- Fix compatibility issue with newer versions of perl, which remove "." from + @INC. https://rt.cpan.org/Ticket/Display.html?id=121015 +- Fix no_index declaration for delta.pl. + https://rt.cpan.org/Ticket/Display.html?id=112477 + Version 0.7107: Sat May 2 2015 - Prevent CPAN from indexing private-lib diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/LICENSE new/Benchmark-Timer-0.7112/LICENSE --- old/Benchmark-Timer-0.7107/LICENSE 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/LICENSE 2018-07-12 04:55:38.000000000 +0200 @@ -1,4 +1,4 @@ -This software is Copyright (c) 2015 by David Coppit. +This software is Copyright (c) 2018 by David Coppit. This is free software, licensed under: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/MANIFEST new/Benchmark-Timer-0.7112/MANIFEST --- old/Benchmark-Timer-0.7107/MANIFEST 2015-04-19 18:31:35.000000000 +0200 +++ new/Benchmark-Timer-0.7112/MANIFEST 2018-07-12 04:53:29.000000000 +0200 @@ -15,7 +15,6 @@ t/03_statistical.t t/04_reports.t t/99_errors.t -t/pod.t # Module::Install extensions inc/Module/AutoInstall.pm @@ -31,9 +30,11 @@ inc/Module/Install/Include.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm +inc/Module/Install/StandardTests.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm +inc/URI/Escape.pm # Private Module::Install extensions private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/META.yml new/Benchmark-Timer-0.7112/META.yml --- old/Benchmark-Timer-0.7107/META.yml 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/META.yml 2018-07-12 04:55:38.000000000 +0200 @@ -4,13 +4,15 @@ - '-2001 Andrew Ho.' build_requires: ExtUtils::MakeMaker: 6.36 + Test::Compile: 0 Test::More: 0 + UNIVERSAL::require: 0 configure_requires: ExtUtils::MakeMaker: 6.36 URI::Escape: 0 distribution_type: module dynamic_config: 1 -generated_by: 'Module::Install version 1.14' +generated_by: 'Module::Install version 1.19' license: gpl2 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -18,11 +20,12 @@ module_name: Benchmark::Timer name: Benchmark-Timer no_index: - delta.pl: [] directory: - inc - private-lib - t + file: + - delta.pl requires: Time::HiRes: 0 perl: '5.005' @@ -31,4 +34,4 @@ homepage: https://github.com/coppit/benchmark-timer/ license: http://opensource.org/licenses/gpl-2.0.php repository: https://github.com/coppit/benchmark-timer.git -version: '0.7107' +version: '0.7112' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/Makefile.PL new/Benchmark-Timer-0.7112/Makefile.PL --- old/Benchmark-Timer-0.7107/Makefile.PL 2015-04-27 00:40:24.000000000 +0200 +++ new/Benchmark-Timer-0.7112/Makefile.PL 2018-07-12 04:51:55.000000000 +0200 @@ -5,6 +5,7 @@ # For PRIVATE Module::Install extensions use lib 'private-lib'; +use lib '.'; use inc::Module::Install; all_from('lib/Benchmark/Timer.pm'); @@ -12,6 +13,14 @@ auto_set_bugtracker; githubmeta; +# Perl 5.6 doesn't work with URI::Escape. We get an error about Exporter not exporting "import" +perl_version '5.008'; + +configure_requires( + # Module::Install::Bugtracker needs this + 'URI::Escape' => 0, +); + requires( 'Time::HiRes' => 0, ); @@ -20,15 +29,46 @@ 'Test::More' => 0, ); +license 'gpl2'; + +use_standard_tests; + +auto_license(holder => 'David Coppit'); + check_optional('Statistics::PointEstimation' => 0, "Install Statistics::PointEstimation for statistical sampling support\n"); -no_index('delta.pl'); +no_index 'file' => 'delta.pl'; no_index 'directory' => 'private-lib'; -license 'gpl2'; -auto_license(holder => 'David Coppit'); - enable_verbose_cpan_testing(); -WriteAll(); +realclean_files('inc'); + +WriteAll; + +# ---- Workaround for broken module ---- +# https://rt.cpan.org/Ticket/Display.html?id=125772 +{ + package Module::Install::StandardTests; + + sub write_standard_test_compile { + my $self = shift; + $self->write_test_file('000_standard__compile.t', q/ + BEGIN { + if ($^O eq 'MSWin32') { + require Test::More; + Test::More->import(skip_all => + "Test::Compile doesn't work properly on Windows"); + } else { + require Test::More; + Test::More->import(); + eval "use Test::Compile"; + Test::More->builder->BAIL_OUT( + "Test::Compile required for testing compilation") if $@; + all_pm_files_ok(); + } + } + /); + } +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/AutoInstall.pm new/Benchmark-Timer-0.7112/inc/Module/AutoInstall.pm --- old/Benchmark-Timer-0.7107/inc/Module/AutoInstall.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/AutoInstall.pm 2018-07-12 04:55:38.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; } # special map on pre-defined feature sets @@ -537,7 +537,7 @@ while ( my ( $opt, $arg ) = splice( @config, 0, 2 ) ) { ( $args{$opt} = $arg, next ) if $opt =~ /^(?:force|notest)$/; # pseudo-option - $CPAN::Config->{$opt} = $arg; + $CPAN::Config->{$opt} = $opt eq 'urllist' ? [$arg] : $arg; } if ($args{notest} && (not CPAN::Shell->can('notest'))) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/AutoLicense.pm new/Benchmark-Timer-0.7112/inc/Module/Install/AutoLicense.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/AutoLicense.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/AutoLicense.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use base qw(Module::Install::Base); use vars qw($VERSION); -$VERSION = '0.08'; +$VERSION = '0.10'; my %licenses = ( perl => 'Software::License::Perl_5', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/AutomatedTester.pm new/Benchmark-Timer-0.7112/inc/Module/Install/AutomatedTester.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/AutomatedTester.pm 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/AutomatedTester.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use base qw(Module::Install::Base); use vars qw($VERSION); -$VERSION = '0.02'; +$VERSION = '0.04'; sub auto_tester { return if $Module::Install::AUTHOR; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Base.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Base.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Base.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Base.pm 2018-07-12 04:55:38.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Bugtracker.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Bugtracker.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Bugtracker.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Bugtracker.pm 2018-07-12 04:55:38.000000000 +0200 @@ -3,19 +3,20 @@ use 5.006; use strict; use warnings; -use URI::Escape; use base qw(Module::Install::Base); -our $VERSION = sprintf "%d.%02d%02d", q/0.3.0/ =~ /(\d+)/g; +our $VERSION = sprintf "%d.%02d%02d", q/0.3.6/ =~ /(\d+)/g; sub auto_set_bugtracker { my $self = shift; if ($self->name) { - $self->configure_requires('URI::Escape', 0); + $self->include_deps('URI::Escape'); + + require URI::Escape; $self->bugtracker( sprintf 'http://rt.cpan.org/Public/Dist/Display.html?Name=%s', - uri_escape($self->name), + URI::Escape::uri_escape($self->name), ); } else { warn "can't set bugtracker if 'name' is not set\n"; @@ -24,5 +25,5 @@ 1; __END__ -#line 100 +#line 101 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Can.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Can.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Can.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Can.pm 2018-07-12 04:55:38.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -121,6 +121,15 @@ # Can we locate a (the) C compiler sub can_cc { my $self = shift; + + if ($^O eq 'VMS') { + require ExtUtils::CBuilder; + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + return $builder->have_compiler; + } + my @chunks = split(/ /, $Config::Config{cc}) or return; # $Config{cc} may contain args; try to find out the program part @@ -151,4 +160,4 @@ __END__ -#line 236 +#line 245 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/CheckOptional.pm new/Benchmark-Timer-0.7112/inc/Module/Install/CheckOptional.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/CheckOptional.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/CheckOptional.pm 2018-07-12 04:55:38.000000000 +0200 @@ -13,7 +13,7 @@ use Module::Install::Base; @ISA = qw( Module::Install::Base Module::AutoInstall ); -$VERSION = sprintf "%d.%02d%02d", q/0.11.00/ =~ /(\d+)/g; +$VERSION = sprintf "%d.%02d%02d", q/0.11.5/ =~ /(\d+)/g; # --------------------------------------------------------------------------- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Fetch.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Fetch.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Fetch.pm 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Fetch.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Include.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Include.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Include.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Include.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Makefile.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Makefile.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Makefile.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Makefile.pm 2018-07-12 04:55:38.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Metadata.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Metadata.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Metadata.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Metadata.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm new/Benchmark-Timer-0.7112/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm 2018-07-12 04:55:38.000000000 +0200 @@ -5,7 +5,6 @@ use warnings; use lib 'inc'; -use Module::Install::AutomatedTester(); use vars qw( @ISA $VERSION ); @@ -25,6 +24,11 @@ $self->perl_version('5.005'); $self->include_deps('Module::Install::AutomatedTester', 0); + # Avoid subroutine redefined errors + if (!defined(&Module::Install::AutomatedTester::auto_tester)) { + require Module::Install::AutomatedTester; + } + return unless Module::Install::AutomatedTester::auto_tester(); unless(defined $ORIG_TEST_VIA_HARNESS) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/StandardTests.pm new/Benchmark-Timer-0.7112/inc/Module/Install/StandardTests.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/StandardTests.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/StandardTests.pm 2018-07-12 04:55:38.000000000 +0200 @@ -0,0 +1,139 @@ +#line 1 +package Module::Install::StandardTests; + +use warnings; +use strict; +use File::Spec; + +use base 'Module::Install::Base'; + + +our $VERSION = '0.05'; + + +sub use_standard_tests { + my ($self, %specs) = @_; + + my %with = map { $_ => 1 } qw/compile pod pod_coverage perl_critic/; + if (exists $specs{without}) { + $specs{without} = [ $specs{without} ] unless ref $specs{without}; + delete $with{$_} for @{ $specs{without} }; + } + + $self->build_requires('Test::More'); + $self->build_requires('UNIVERSAL::require'); + + # Unlike other tests, this is mandatory. + $self->build_requires('Test::Compile'); + + $self->write_standard_test_compile; # no if; this is mandatory + $self->write_standard_test_pod if $with{pod}; + $self->write_standard_test_pod_coverage if $with{pod_coverage}; + $self->write_standard_test_perl_critic if $with{perl_critic}; +} + + +sub write_test_file { + my ($self, $filename, $code) = @_; + $filename = File::Spec->catfile('t', $filename); + + # Outdent the code somewhat. Remove first empty line, if any. Then + # determine the indent of the first line. Throw that amount of indenting + # away from any line. This allows you to indent the code so it's visually + # clearer (see methods below) while creating output that's indented more + # or less correctly. Smoke result HTML pages link to the .t files, so it + # looks neater. + + $code =~ s/^ *\n//; + (my $indent = $code) =~ s/^( *).*/$1/s; + $code =~ s/^$indent//gm; + + print "Creating $filename\n"; + open(my $fh, ">$filename") or die "can't create $filename $!"; + + my $perl = $^X; + print $fh <<TEST; +#!$perl -w + +use strict; +use warnings; + +$code +TEST + + close $fh or die "can't close $filename $!\n"; + $self->realclean_files($filename); +} + + +sub write_standard_test_compile { + my $self = shift; + $self->write_test_file('000_standard__compile.t', q/ + BEGIN { + use Test::More; + eval "use Test::Compile"; + Test::More->builder->BAIL_OUT( + "Test::Compile required for testing compilation") if $@; + all_pm_files_ok(); + } + /); +} + + +sub write_standard_test_pod { + my $self = shift; + $self->write_test_file('000_standard__pod.t', q/ + use Test::More; + eval "use Test::Pod"; + plan skip_all => "Test::Pod required for testing POD" if $@; + all_pod_files_ok(); + /); +} + + +sub write_standard_test_pod_coverage { + my $self = shift; + $self->write_test_file('000_standard__pod_coverage.t', q/ + use Test::More; + eval "use Test::Pod::Coverage"; + plan skip_all => + "Test::Pod::Coverage required for testing POD coverage" if $@; + all_pod_coverage_ok(); + /); +} + + +sub write_standard_test_perl_critic { + my $self = shift; + $self->write_test_file('000_standard__perl_critic.t', q/ + use FindBin '$Bin'; + use File::Spec; + use UNIVERSAL::require; + use Test::More; + + plan skip_all => + 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.' + unless $ENV{TEST_AUTHOR}; + + my %opt; + my $rc_file = File::Spec->catfile($Bin, 'perlcriticrc'); + $opt{'-profile'} = $rc_file if -r $rc_file; + + if (Perl::Critic->require('1.078') && + Test::Perl::Critic->require && + Test::Perl::Critic->import(%opt)) { + + all_critic_ok("lib"); + } else { + plan skip_all => $@; + } + /); +} + + +1; + +__END__ + +#line 249 + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/Win32.pm new/Benchmark-Timer-0.7112/inc/Module/Install/Win32.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/Win32.pm 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/Win32.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install/WriteAll.pm new/Benchmark-Timer-0.7112/inc/Module/Install/WriteAll.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install/WriteAll.pm 2015-05-03 04:31:51.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install/WriteAll.pm 2018-07-12 04:55:38.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.14'; + $VERSION = '1.19'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/Module/Install.pm new/Benchmark-Timer-0.7112/inc/Module/Install.pm --- old/Benchmark-Timer-0.7107/inc/Module/Install.pm 2015-05-03 04:31:50.000000000 +0200 +++ new/Benchmark-Timer-0.7112/inc/Module/Install.pm 2018-07-12 04:55:38.000000000 +0200 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.14'; + $VERSION = '1.19'; # Storage for the pseudo-singleton $MAIN = undef; @@ -244,6 +244,8 @@ } return $args{_self} if $args{_self}; + $base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS'; + $args{dispatch} ||= 'Admin'; $args{prefix} ||= 'inc'; $args{author} ||= ($^O eq 'VMS' ? '_author' : '.author'); @@ -322,7 +324,7 @@ my ($self, $path) = @_; my @found; - File::Find::find( sub { + File::Find::find( {no_chdir => 1, wanted => sub { my $file = $File::Find::name; return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is; my $subpath = $1; @@ -336,7 +338,7 @@ # correctly. Otherwise, root through the file to locate the case-preserved # version of the package name. if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) { - my $content = Module::Install::_read($subpath . '.pm'); + my $content = Module::Install::_read($File::Find::name); my $in_pod = 0; foreach ( split /\n/, $content ) { $in_pod = 1 if /^=\w/; @@ -351,7 +353,7 @@ } push @found, [ $file, $pkg ]; - }, $path ) if -d $path; + }}, $path ) if -d $path; @found; } @@ -373,8 +375,6 @@ return $call; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _read { local *FH; open( FH, '<', $_[0] ) or die "open($_[0]): $!"; @@ -383,16 +383,6 @@ close FH or die "close($_[0]): $!"; return $string; } -END_NEW -sub _read { - local *FH; - open( FH, "< $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - my $string = do { local $/; <FH> }; - close FH or die "close($_[0]): $!"; - return $string; -} -END_OLD sub _readperl { my $string = Module::Install::_read($_[0]); @@ -413,8 +403,6 @@ return $string; } -# Done in evals to avoid confusing Perl::MinimumVersion -eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; sub _write { local *FH; open( FH, '>', $_[0] ) or die "open($_[0]): $!"; @@ -424,17 +412,6 @@ } close FH or die "close($_[0]): $!"; } -END_NEW -sub _write { - local *FH; - open( FH, "> $_[0]" ) or die "open($_[0]): $!"; - binmode FH; - foreach ( 1 .. $#_ ) { - print FH $_[$_] or die "print($_[0]): $!"; - } - close FH or die "close($_[0]): $!"; -} -END_OLD # _version is for processing module versions (eg, 1.03_05) not # Perl versions (eg, 5.8.1). diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/inc/URI/Escape.pm new/Benchmark-Timer-0.7112/inc/URI/Escape.pm --- old/Benchmark-Timer-0.7107/inc/URI/Escape.pm 1970-01-01 01:00:00.000000000 +0100 +++ new/Benchmark-Timer-0.7112/inc/URI/Escape.pm 2018-07-12 04:55:38.000000000 +0200 @@ -0,0 +1,89 @@ +#line 1 +package URI::Escape; + +use strict; +use warnings; + +#line 138 + +use Exporter 'import'; +our %escapes; +our @EXPORT = qw(uri_escape uri_unescape uri_escape_utf8); +our @EXPORT_OK = qw(%escapes); +our $VERSION = "3.31"; + +use Carp (); + +# Build a char->hex map +for (0..255) { + $escapes{chr($_)} = sprintf("%%%02X", $_); +} + +my %subst; # compiled patterns + +my %Unsafe = ( + RFC2732 => qr/[^A-Za-z0-9\-_.!~*'()]/, + RFC3986 => qr/[^A-Za-z0-9\-\._~]/, +); + +sub uri_escape { + my($text, $patn) = @_; + return undef unless defined $text; + if (defined $patn){ + unless (exists $subst{$patn}) { + # Because we can't compile the regex we fake it with a cached sub + (my $tmp = $patn) =~ s,/,\\/,g; + eval "\$subst{\$patn} = sub {\$_[0] =~ s/([$tmp])/\$escapes{\$1} || _fail_hi(\$1)/ge; }"; + Carp::croak("uri_escape: $@") if $@; + } + &{$subst{$patn}}($text); + } else { + $text =~ s/($Unsafe{RFC3986})/$escapes{$1} || _fail_hi($1)/ge; + } + $text; +} + +sub _fail_hi { + my $chr = shift; + Carp::croak(sprintf "Can't escape \\x{%04X}, try uri_escape_utf8() instead", ord($chr)); +} + +sub uri_escape_utf8 { + my $text = shift; + utf8::encode($text); + return uri_escape($text, @_); +} + +sub uri_unescape { + # Note from RFC1630: "Sequences which start with a percent sign + # but are not followed by two hexadecimal characters are reserved + # for future extension" + my $str = shift; + if (@_ && wantarray) { + # not executed for the common case of a single argument + my @str = ($str, @_); # need to copy + for (@str) { + s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; + } + return @str; + } + $str =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg if defined $str; + $str; +} + +# XXX FIXME escape_char is buggy as it assigns meaning to the string's storage format. +sub escape_char { + # Old versions of utf8::is_utf8() didn't properly handle magical vars (e.g. $1). + # The following forces a fetch to occur beforehand. + my $dummy = substr($_[0], 0, 0); + + if (utf8::is_utf8($_[0])) { + my $s = shift; + utf8::encode($s); + unshift(@_, $s); + } + + return join '', @URI::Escape::escapes{split //, $_[0]}; +} + +1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/lib/Benchmark/Timer.pm new/Benchmark-Timer-0.7112/lib/Benchmark/Timer.pm --- old/Benchmark-Timer-0.7107/lib/Benchmark/Timer.pm 2015-05-03 04:30:34.000000000 +0200 +++ new/Benchmark-Timer-0.7112/lib/Benchmark/Timer.pm 2018-07-12 04:53:36.000000000 +0200 @@ -6,7 +6,7 @@ use Time::HiRes qw( gettimeofday tv_interval ); use vars qw($VERSION); -$VERSION = sprintf "%d.%02d%02d", q/0.71.7/ =~ /(\d+)/g; +$VERSION = sprintf "%d.%02d%02d", q/0.71.12/ =~ /(\d+)/g; use constant BEFORE => 0; use constant ELAPSED => 1; @@ -97,7 +97,7 @@ # Demand load the module we need. We could just # require people to install it... croak 'Could not load the Statistics::PointEstimation module' - unless eval "require Statistics::PointEstimation"; + unless eval {require Statistics::PointEstimation}; } if(%args) { @@ -255,12 +255,12 @@ if ($n == 1) { $report .= sprintf "\%d trial of \%s (\%s total)\n", - $n, $tag, timestr($total); + $n, $tag, _timestr($total); } else { $report .= sprintf "\%d trials of \%s (\%s total), \%s/trial\n", - $n, $tag, timestr($total), timestr($total / $n); + $n, $tag, _timestr($total), _timestr($total / $n); } if (defined $self->[STAT]->{$tag}) @@ -324,17 +324,17 @@ # ------------------------------------------------------------------------ # Internal utility subroutines -# timestr($sec) takes a floating-point number of seconds and formats +# _timestr($sec) takes a floating-point number of seconds and formats # it in a sensible way, commifying large numbers of seconds, and # converting to milliseconds if it makes sense. Since Time::HiRes has # at most microsecond resolution, no attempt is made to convert into # anything below that. A unit string is appended to the number. -sub timestr { +sub _timestr { my $sec = shift; my $retstr; if($sec >= 1_000) { - $retstr = commify(int $sec) . 's'; + $retstr = _commify(int $sec) . 's'; } elsif($sec >= 1) { $retstr = sprintf $sec == int $sec ? '%ds' : '%0.3fs', $sec; } elsif($sec >= 0.001) { @@ -350,11 +350,11 @@ } -# commify($num) inserts a grouping comma according to en-US standards +# _commify($num) inserts a grouping comma according to en-US standards # for numbers larger than 1000. For example, the integer 123456 would # be written 123,456. Any fractional part is left untouched. -sub commify { +sub _commify { my $num = shift; return unless $num =~ /\d/; return $num if $num < 1_000; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm new/Benchmark-Timer-0.7112/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm --- old/Benchmark-Timer-0.7107/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm 2015-04-19 20:28:07.000000000 +0200 +++ new/Benchmark-Timer-0.7112/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm 2018-07-11 05:37:28.000000000 +0200 @@ -4,7 +4,6 @@ use warnings; use lib 'inc'; -use Module::Install::AutomatedTester(); use vars qw( @ISA $VERSION ); @@ -24,6 +23,11 @@ $self->perl_version('5.005'); $self->include_deps('Module::Install::AutomatedTester', 0); + # Avoid subroutine redefined errors + if (!defined(&Module::Install::AutomatedTester::auto_tester)) { + require Module::Install::AutomatedTester; + } + return unless Module::Install::AutomatedTester::auto_tester(); unless(defined $ORIG_TEST_VIA_HARNESS) { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Benchmark-Timer-0.7107/t/pod.t new/Benchmark-Timer-0.7112/t/pod.t --- old/Benchmark-Timer-0.7107/t/pod.t 2015-03-22 17:34:04.000000000 +0100 +++ new/Benchmark-Timer-0.7112/t/pod.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,10 +0,0 @@ -#!/usr/bin/perl - -use strict; -use Test::More; - -eval "use Test::Pod 1.00"; - -plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; - -all_pod_files_ok();