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 - [email protected]
+
+- 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 - [email protected]
+
+- 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();
