Hello community,
here is the log from the commit of package perl-FileHandle-Unget for
openSUSE:Factory checked in at 2018-07-28 12:40:53
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-FileHandle-Unget (Old)
and /work/SRC/openSUSE:Factory/.perl-FileHandle-Unget.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-FileHandle-Unget"
Sat Jul 28 12:40:53 2018 rev:23 rq:624408 version:0.1634
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-FileHandle-Unget/perl-FileHandle-Unget.changes
2017-10-03 23:18:49.357435049 +0200
+++
/work/SRC/openSUSE:Factory/.perl-FileHandle-Unget.new/perl-FileHandle-Unget.changes
2018-07-28 12:40:57.272489441 +0200
@@ -1,0 +2,29 @@
+Tue Jul 17 05:25:44 UTC 2018 - [email protected]
+
+- updated to 0.1634
+ see /usr/share/doc/packages/perl-FileHandle-Unget/CHANGES
+
+ Version 0.1634:
+ - Fix Makefile.PL warning
+ - Fix deleting of inc during release process
+ - Better fix for AutomatedTester warning
+
+ Version 0.1632:
+ - Updating META.yml
+
+ Version 0.1632:
+ - Switch to File::Slurper
+
+-------------------------------------------------------------------
+Sun Jul 8 05:26:24 UTC 2018 - [email protected]
+
+- updated to 0.1631
+ see /usr/share/doc/packages/perl-FileHandle-Unget/CHANGES
+
+-------------------------------------------------------------------
+Fri Jul 6 05:23:48 UTC 2018 - [email protected]
+
+- updated to 0.1629
+ see /usr/share/doc/packages/perl-FileHandle-Unget/CHANGES
+
+-------------------------------------------------------------------
Old:
----
FileHandle-Unget-0.1628.tar.gz
New:
----
FileHandle-Unget-0.1634.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-FileHandle-Unget.spec ++++++
--- /var/tmp/diff_new_pack.Ed6Kmu/_old 2018-07-28 12:40:57.856490564 +0200
+++ /var/tmp/diff_new_pack.Ed6Kmu/_new 2018-07-28 12:40:57.856490564 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-FileHandle-Unget
#
-# 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,11 +17,11 @@
Name: perl-FileHandle-Unget
-Version: 0.1628
+Version: 0.1634
Release: 0
%define cpan_name FileHandle-Unget
Summary: FileHandle which supports multi-byte unget
-License: GPL-2.0+
+License: GPL-2.0-or-later
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/FileHandle-Unget/
Source0:
https://cpan.metacpan.org/authors/id/D/DC/DCOPPIT/%{cpan_name}-%{version}.tar.gz
@@ -30,8 +30,9 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(File::Slurp)
-BuildRequires: perl(URI::Escape)
+BuildRequires: perl(File::Slurper)
+BuildRequires: perl(Test::Compile)
+BuildRequires: perl(UNIVERSAL::require)
%{perl_requires}
%description
++++++ FileHandle-Unget-0.1628.tar.gz -> FileHandle-Unget-0.1634.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/CHANGES
new/FileHandle-Unget-0.1634/CHANGES
--- old/FileHandle-Unget-0.1628/CHANGES 2015-05-03 04:34:33.000000000 +0200
+++ new/FileHandle-Unget-0.1634/CHANGES 2018-07-12 05:22:33.000000000 +0200
@@ -1,3 +1,26 @@
+Version 0.1634:
+- Fix Makefile.PL warning
+- Fix deleting of inc during release process
+- Better fix for AutomatedTester warning
+
+Version 0.1632:
+- Updating META.yml
+
+Version 0.1632:
+- Switch to File::Slurper
+
+Version 0.1631:
+- Trying once again to fix the compile test on windows
+
+Version 0.1630:
+- Check in standard tests, including one that skips the compile check on
Windows
+- Add missing URI::Escape dependency
+
+Version 0.1629:
+- Add standard tests
+- Fix compatibility issue with newer versions of perl, which remove "." from
+ @INC. https://rt.cpan.org/Ticket/Display.html?id=121434
+
Version 0.1628: Sat May 2 2015
- Prevent CPAN from indexing private-lib
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/LICENSE
new/FileHandle-Unget-0.1634/LICENSE
--- old/FileHandle-Unget-0.1628/LICENSE 2015-05-03 04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/LICENSE 2018-07-12 05:26:10.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/FileHandle-Unget-0.1628/MANIFEST
new/FileHandle-Unget-0.1634/MANIFEST
--- old/FileHandle-Unget-0.1628/MANIFEST 2015-04-19 21:22:04.000000000
+0200
+++ new/FileHandle-Unget-0.1634/MANIFEST 2018-07-12 05:22:54.000000000
+0200
@@ -25,7 +25,6 @@
t/multiple_handles.t
t/new.t
t/overridden_pipe.t
-t/pod.t
t/seek.t
t/tell.t
t/ungetc.t
@@ -43,9 +42,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/FileHandle-Unget-0.1628/META.yml
new/FileHandle-Unget-0.1634/META.yml
--- old/FileHandle-Unget-0.1628/META.yml 2015-05-03 04:36:00.000000000
+0200
+++ new/FileHandle-Unget-0.1634/META.yml 2018-07-12 05:26:11.000000000
+0200
@@ -4,15 +4,17 @@
- 'David Coppit <[email protected]>.'
build_requires:
ExtUtils::MakeMaker: 6.36
- File::Slurp: 0
+ File::Slurper: 0
File::Spec::Functions: 0
+ 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
@@ -32,4 +34,4 @@
homepage: https://github.com/coppit/filehandle-unget/
license: http://opensource.org/licenses/gpl-2.0.php
repository: https://github.com/coppit/filehandle-unget.git
-version: '0.1628'
+version: '0.1634'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/Makefile.PL
new/FileHandle-Unget-0.1634/Makefile.PL
--- old/FileHandle-Unget-0.1628/Makefile.PL 2015-04-27 00:40:52.000000000
+0200
+++ new/FileHandle-Unget-0.1634/Makefile.PL 2018-07-12 05:21:30.000000000
+0200
@@ -5,6 +5,7 @@
# For PRIVATE Module::Install extensions
use lib 'private-lib';
+use lib '.';
use inc::Module::Install;
all_from('lib/FileHandle/Unget.pm');
@@ -12,20 +13,59 @@
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(
'Scalar::Util' => '1.14',
);
test_requires(
- 'File::Slurp' => 0,
+ 'File::Slurper' => 0,
'Test::More' => 0,
'File::Spec::Functions' => 0,
);
license 'gpl2';
+
+use_standard_tests(without => 'pod_coverage');
+
auto_license(holder => 'David Coppit');
no_index 'directory' => 'private-lib';
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/FileHandle-Unget-0.1628/inc/Module/Install/AutoLicense.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/AutoLicense.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/AutoLicense.pm
2015-05-03 04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/AutoLicense.pm
2018-07-12 05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/AutomatedTester.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/AutomatedTester.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/AutomatedTester.pm
2015-05-03 04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/AutomatedTester.pm
2018-07-12 05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Base.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Base.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Base.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Base.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Bugtracker.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Bugtracker.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Bugtracker.pm
2015-05-03 04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Bugtracker.pm
2018-07-12 05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Can.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Can.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Can.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Can.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Fetch.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Fetch.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Fetch.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Fetch.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Include.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Include.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Include.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Include.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Makefile.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Makefile.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Makefile.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Makefile.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Metadata.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Metadata.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Metadata.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Metadata.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
---
old/FileHandle-Unget-0.1628/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
2015-05-03 04:36:00.000000000 +0200
+++
new/FileHandle-Unget-0.1634/inc/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
2018-07-12 05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/StandardTests.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/StandardTests.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/StandardTests.pm
1970-01-01 01:00:00.000000000 +0100
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/StandardTests.pm
2018-07-12 05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/Win32.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/Win32.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/Win32.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/Win32.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install/WriteAll.pm
new/FileHandle-Unget-0.1634/inc/Module/Install/WriteAll.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install/WriteAll.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install/WriteAll.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/Module/Install.pm
new/FileHandle-Unget-0.1634/inc/Module/Install.pm
--- old/FileHandle-Unget-0.1628/inc/Module/Install.pm 2015-05-03
04:36:00.000000000 +0200
+++ new/FileHandle-Unget-0.1634/inc/Module/Install.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/inc/URI/Escape.pm
new/FileHandle-Unget-0.1634/inc/URI/Escape.pm
--- old/FileHandle-Unget-0.1628/inc/URI/Escape.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/FileHandle-Unget-0.1634/inc/URI/Escape.pm 2018-07-12
05:26:10.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/FileHandle-Unget-0.1628/lib/FileHandle/Unget.pm
new/FileHandle-Unget-0.1634/lib/FileHandle/Unget.pm
--- old/FileHandle-Unget-0.1628/lib/FileHandle/Unget.pm 2015-05-03
04:34:41.000000000 +0200
+++ new/FileHandle-Unget-0.1634/lib/FileHandle/Unget.pm 2018-07-12
05:21:53.000000000 +0200
@@ -12,7 +12,7 @@
@ISA = qw( Exporter FileHandle );
-$VERSION = sprintf "%d.%02d%02d", q/0.16.28/ =~ /(\d+)/g;
+$VERSION = sprintf "%d.%02d%02d", q/0.16.34/ =~ /(\d+)/g;
@EXPORT = @FileHandle::EXPORT;
@EXPORT_OK = @FileHandle::EXPORT_OK;
@@ -23,7 +23,7 @@
# methods
sub wrap_methods
{
- no strict 'refs';
+ no strict 'refs'; ## no critic (strict)
my $class = shift or return;
my $seen = shift || {};
@@ -93,7 +93,7 @@
else
{
$self = $class->SUPER::new(@_);
- return undef unless defined $self;
+ return undef unless defined $self; ## no critic
(ProhibitExplicitReturnUndef)
}
my $values =
@@ -126,7 +126,7 @@
# else
{
$self = $class->SUPER::new_from_fd(@_);
- return undef unless defined $self;
+ return undef unless defined $self; ## no critic
(ProhibitExplicitReturnUndef)
}
my $values =
@@ -185,7 +185,7 @@
tied(*$self)->{'input_record_separator'} = shift;
}
- return undef unless exists tied(*$self)->{'input_record_separator'};
+ return undef unless exists tied(*$self)->{'input_record_separator'}; ## no
critic (ProhibitExplicitReturnUndef)
return tied(*$self)->{'input_record_separator'};
}
@@ -235,7 +235,7 @@
my $sub = $tie_mapping{$name};
# Alias the anonymous subroutine to the name of the sub we want ...
- no strict 'refs';
+ no strict 'refs'; ## no critic (strict)
*{$name} = sub
{
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/FileHandle-Unget-0.1628/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
new/FileHandle-Unget-0.1634/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
---
old/FileHandle-Unget-0.1628/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
2015-04-19 21:16:12.000000000 +0200
+++
new/FileHandle-Unget-0.1634/private-lib/Module/Install/PRIVATE/Enable_Verbose_CPAN_Testing.pm
2018-07-11 05:38:14.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/FileHandle-Unget-0.1628/t/filehandle.t
new/FileHandle-Unget-0.1634/t/filehandle.t
--- old/FileHandle-Unget-0.1628/t/filehandle.t 2015-04-20 04:00:22.000000000
+0200
+++ new/FileHandle-Unget-0.1634/t/filehandle.t 2018-07-08 20:26:17.000000000
+0200
@@ -3,7 +3,7 @@
use File::Spec::Functions qw(:ALL);
use Test::More tests => 13;
use File::Temp;
-use File::Slurp ();
+use File::Slurper qw(read_text);
my $tmp = File::Temp->new();
close $tmp;
@@ -18,7 +18,7 @@
syswrite $fh, "second line\n";
FileHandle::Unget::close($fh);
- my $results = File::Slurp::read_file($tmp->filename);
+ my $results = read_text($tmp->filename, undef, 1);
# 1
is($results, "first line\nsecond line\n",'No eol separator');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/t/gensym.t
new/FileHandle-Unget-0.1634/t/gensym.t
--- old/FileHandle-Unget-0.1628/t/gensym.t 2015-04-20 04:01:51.000000000
+0200
+++ new/FileHandle-Unget-0.1634/t/gensym.t 2018-07-08 20:26:08.000000000
+0200
@@ -3,7 +3,7 @@
use File::Spec::Functions qw(:ALL);
use Test::More tests => 12;
use File::Temp;
-use File::Slurp ();
+use File::Slurper qw(read_text);
my $tmp = File::Temp->new();
close $tmp;
@@ -25,7 +25,7 @@
syswrite $fh, "second line\n";
FileHandle::Unget::close($fh);
- my $results = File::Slurp::read_file($tmp->filename);
+ my $results = read_text($tmp->filename, undef, 1);
# 1
is($results, "first line\nsecond line\n",'syswrite()');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/t/new.t
new/FileHandle-Unget-0.1634/t/new.t
--- old/FileHandle-Unget-0.1628/t/new.t 2015-04-20 04:03:12.000000000 +0200
+++ new/FileHandle-Unget-0.1634/t/new.t 2018-07-08 20:26:22.000000000 +0200
@@ -3,7 +3,7 @@
use File::Spec::Functions qw(:ALL);
use Test::More tests => 12;
use File::Temp;
-use File::Slurp ();
+use File::Slurper qw(read_text);
my $tmp = File::Temp->new();
close $tmp;
@@ -20,7 +20,7 @@
syswrite $fh, "second line\n";
FileHandle::Unget::close($fh);
- my $results = File::Slurp::read_file($tmp->filename);
+ my $results = read_text($tmp->filename, undef, 1);
# 1
is($results, "first line\nsecond line\n", 'syswrite()');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/t/pod.t
new/FileHandle-Unget-0.1634/t/pod.t
--- old/FileHandle-Unget-0.1628/t/pod.t 2015-03-22 19:22:28.000000000 +0100
+++ new/FileHandle-Unget-0.1634/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();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/FileHandle-Unget-0.1628/t/stdin_tell_bug.t
new/FileHandle-Unget-0.1634/t/stdin_tell_bug.t
--- old/FileHandle-Unget-0.1628/t/stdin_tell_bug.t 2015-04-20
06:47:38.000000000 +0200
+++ new/FileHandle-Unget-0.1634/t/stdin_tell_bug.t 2018-07-08
20:26:13.000000000 +0200
@@ -4,7 +4,7 @@
use Test::More tests => 3;
use Config;
use File::Temp;
-use File::Slurp ();
+use File::Slurper qw(read_text);
#
-------------------------------------------------------------------------------
@@ -31,7 +31,7 @@
{
my $fh;
($fh, $test_program) = File::Temp::tempfile(UNLINK => 1);
- print $fh File::Slurp::read_file(\*DATA);
+ print $fh do { local $/; <DATA> };
close $fh;
}
@@ -73,8 +73,8 @@
#1
ok(!$?,'Executing external program');
-my $actual_stdout = File::Slurp::read_file($test_stdout);
-my $actual_stderr = File::Slurp::read_file($test_stderr);
+my $actual_stdout = read_text($test_stdout, undef, 1);
+my $actual_stderr = read_text($test_stderr, undef, 1);
#2
like($actual_stdout,$expected_stdout,'Output matches');
