Hello community,
here is the log from the commit of package perl-Module-Install for
openSUSE:Factory checked in at 2015-04-15 16:21:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Module-Install (Old)
and /work/SRC/openSUSE:Factory/.perl-Module-Install.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Module-Install"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Module-Install/perl-Module-Install.changes
2014-03-11 09:32:36.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Module-Install.new/perl-Module-Install.changes
2015-04-15 16:22:00.000000000 +0200
@@ -1,0 +2,25 @@
+Mon Apr 13 17:43:45 UTC 2015 - [email protected]
+
+- updated to 1.14
+ see /usr/share/doc/packages/perl-Module-Install/Changes
+
+ 1.14 Sat 25 Oct 2014
+ - Newlines should be consistently UNIX-stylee now in generated files
(MITHALDU)
+ - Mark two tests as TODO if EUMM > 6.98 until utf8 gets fixed (BINGOS)
+
+ 1.12 Fri 29 Aug 2014
+ - Revert license behaviour (TSIBLEY)
+ - Documentation also mentioning metacpan.org (LLAP)
+
+ 1.10 Fri 11 Jul 2014
+ - Minimum perl version is now v5.6.0 (BOWTIE)
+ - Update license tables (BOWTIE)
+ - Prereqs and recommends adjusted (BOWTIE)
+ - Typo fixes (BOWTIE)
+ - Pod fixes (GREGOA)
+ - Fix make upgradedeps work with bundles (JNWHITLEY)
+ - Fix name_from regex to work with recent package syntax (BOWTIE)
+ - Performance enhancements when running Makefile.PL (GFUJI)
+ - Removed use of sub prototypes (BOWTIE)
+
+-------------------------------------------------------------------
Old:
----
Module-Install-1.08.tar.gz
New:
----
Module-Install-1.14.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Module-Install.spec ++++++
--- /var/tmp/diff_new_pack.Rcr8Vf/_old 2015-04-15 16:22:00.000000000 +0200
+++ /var/tmp/diff_new_pack.Rcr8Vf/_new 2015-04-15 16:22:00.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Module-Install
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 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,7 +17,7 @@
Name: perl-Module-Install
-Version: 1.08
+Version: 1.14
Release: 0
%define cpan_name Module-Install
Summary: Standalone, extensible Perl module installer
@@ -29,36 +29,36 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(Archive::Tar) >= 1.44
BuildRequires: perl(Devel::PPPort) >= 3.16
BuildRequires: perl(ExtUtils::Install) >= 1.52
BuildRequires: perl(ExtUtils::MakeMaker) >= 6.59
BuildRequires: perl(ExtUtils::ParseXS) >= 2.19
BuildRequires: perl(File::Remove) >= 1.42
BuildRequires: perl(File::Spec) >= 3.28
-BuildRequires: perl(JSON) >= 2.14
BuildRequires: perl(Module::Build) >= 0.29
BuildRequires: perl(Module::CoreList) >= 2.17
BuildRequires: perl(Module::ScanDeps) >= 1.09
-BuildRequires: perl(PAR::Dist) >= 0.29
BuildRequires: perl(Parse::CPAN::Meta) >= 1.4413
BuildRequires: perl(Test::Harness) >= 3.13
BuildRequires: perl(Test::More) >= 0.86
BuildRequires: perl(YAML::Tiny) >= 1.33
-Requires: perl(Archive::Tar) >= 1.44
Requires: perl(Devel::PPPort) >= 3.16
Requires: perl(ExtUtils::Install) >= 1.52
Requires: perl(ExtUtils::MakeMaker) >= 6.59
Requires: perl(ExtUtils::ParseXS) >= 2.19
Requires: perl(File::Remove) >= 1.42
Requires: perl(File::Spec) >= 3.28
-Requires: perl(JSON) >= 2.14
Requires: perl(Module::Build) >= 0.29
Requires: perl(Module::CoreList) >= 2.17
Requires: perl(Module::ScanDeps) >= 1.09
-Requires: perl(PAR::Dist) >= 0.29
Requires: perl(Parse::CPAN::Meta) >= 1.4413
Requires: perl(YAML::Tiny) >= 1.38
+Recommends: perl(Archive::Zip) >= 1.37
+Recommends: perl(File::HomeDir) >= 1
+Recommends: perl(JSON) >= 2.9
+Recommends: perl(LWP::Simple) >= 6.00
+Recommends: perl(LWP::UserAgent) >= 6.05
+Recommends: perl(PAR::Dist) >= 0.29
%{perl_requires}
%description
++++++ Module-Install-1.08.tar.gz -> Module-Install-1.14.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/.travis.yml
new/Module-Install-1.14/.travis.yml
--- old/Module-Install-1.08/.travis.yml 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Install-1.14/.travis.yml 2014-08-29 11:06:36.000000000 +0200
@@ -0,0 +1,10 @@
+language: perl
+perl:
+ - '5.20'
+ - '5.18'
+ - '5.16'
+ - '5.14'
+ - '5.12'
+ - '5.10'
+ - '5.8'
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/Changes
new/Module-Install-1.14/Changes
--- old/Module-Install-1.08/Changes 2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/Changes 2014-10-25 15:07:17.000000000 +0200
@@ -1,5 +1,24 @@
Changes for Perl programming language extension Module-Install
+1.14 Sat 25 Oct 2014
+ - Newlines should be consistently UNIX-stylee now in generated files
(MITHALDU)
+ - Mark two tests as TODO if EUMM > 6.98 until utf8 gets fixed (BINGOS)
+
+1.12 Fri 29 Aug 2014
+ - Revert license behaviour (TSIBLEY)
+ - Documentation also mentioning metacpan.org (LLAP)
+
+1.10 Fri 11 Jul 2014
+ - Minimum perl version is now v5.6.0 (BOWTIE)
+ - Update license tables (BOWTIE)
+ - Prereqs and recommends adjusted (BOWTIE)
+ - Typo fixes (BOWTIE)
+ - Pod fixes (GREGOA)
+ - Fix make upgradedeps work with bundles (JNWHITLEY)
+ - Fix name_from regex to work with recent package syntax (BOWTIE)
+ - Performance enhancements when running Makefile.PL (GFUJI)
+ - Removed use of sub prototypes (BOWTIE)
+
1.08 Thu 6 Mar 2014
- Remove LWP::UserAgent from the prereqs (TOKUHIROM)
- Require a more recent version of Module::ScanDeps (CHORNY)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/MANIFEST
new/Module-Install-1.14/MANIFEST
--- old/Module-Install-1.08/MANIFEST 2014-03-06 18:05:09.000000000 +0100
+++ new/Module-Install-1.14/MANIFEST 2014-10-25 15:11:23.000000000 +0200
@@ -1,3 +1,4 @@
+.travis.yml
Changes
inc/Module/Install.pm
inc/Module/Install/Base.pm
@@ -6,6 +7,7 @@
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
+inc/Module/Install/With.pm
inc/Module/Install/WriteAll.pm
lib/inc/Module/Install.pm
lib/inc/Module/Install/DSL.pm
@@ -83,6 +85,9 @@
t/29_requires_from.t
t/30_build_subdirs.t
t/31_add_metadata.t
+t/32_module_name.t
+t/33_copy.t
+t/34_readwrite.t
t/lib/Test.pm
t/recursive/test.t
xt/licenses.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/META.yml
new/Module-Install-1.14/META.yml
--- old/Module-Install-1.08/META.yml 2014-03-06 18:07:14.000000000 +0100
+++ new/Module-Install-1.14/META.yml 2014-10-25 15:11:23.000000000 +0200
@@ -3,15 +3,15 @@
author:
- 'Adam Kennedy <[email protected]>'
build_requires:
- ExtUtils::MakeMaker: 6.36
+ ExtUtils::MakeMaker: 6.59
Test::Harness: '3.13'
Test::More: '0.86'
configure_requires:
- ExtUtils::MakeMaker: 6.36
+ ExtUtils::MakeMaker: 6.59
YAML::Tiny: '1.33'
distribution_type: module
dynamic_config: 0
-generated_by: 'Module::Install version 1.08'
+generated_by: 'Module::Install version 1.14'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,23 +22,28 @@
- inc
- t
- xt
+recommends:
+ Archive::Zip: '1.37'
+ File::HomeDir: '1'
+ JSON: '2.9'
+ LWP::Simple: '6.00'
+ LWP::UserAgent: '6.05'
+ PAR::Dist: '0.29'
requires:
- Archive::Tar: '1.44'
Devel::PPPort: '3.16'
ExtUtils::Install: '1.52'
ExtUtils::MakeMaker: '6.59'
ExtUtils::ParseXS: '2.19'
+ File::Path: 0
File::Remove: '1.42'
File::Spec: '3.28'
- JSON: '2.14'
Module::Build: '0.29'
Module::CoreList: '2.17'
Module::ScanDeps: '1.09'
- PAR::Dist: '0.29'
Parse::CPAN::Meta: '1.4413'
YAML::Tiny: '1.38'
- perl: '5.005'
+ perl: 5.6.0
resources:
license: http://dev.perl.org/licenses/
repository: https://github.com/Perl-Toolchain-Gang/Module-Install.git
-version: '1.08'
+version: '1.14'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/Makefile.PL
new/Module-Install-1.14/Makefile.PL
--- old/Module-Install-1.08/Makefile.PL 2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/Makefile.PL 2014-08-29 11:10:07.000000000 +0200
@@ -18,25 +18,33 @@
name 'Module-Install';
author 'Adam Kennedy <[email protected]>';
-perl_version '5.005';
+perl_version '5.006';
all_from 'lib/Module/Install.pm';
-requires 'Parse::CPAN::Meta' => '1.4413';
-requires 'File::Spec' => '3.28';
+
requires 'Devel::PPPort' => '3.16';
-requires 'File::Remove' => '1.42';
-requires 'YAML::Tiny' => '1.38';
-requires 'JSON' => '2.14';
-requires 'Module::ScanDeps' => '1.09'; #detects prereqs better
-requires 'Module::CoreList' => '2.17';
-requires 'PAR::Dist' => '0.29';
-requires 'Archive::Tar' => '1.44';
requires 'ExtUtils::Install' => '1.52';
requires 'ExtUtils::MakeMaker' => '6.59';
requires 'ExtUtils::ParseXS' => '2.19';
+requires 'File::Path' => 0; #needs version
+requires 'File::Remove' => '1.42';
+requires 'File::Spec' => '3.28';
requires 'Module::Build' => '0.29';
+requires 'Module::CoreList' => '2.17';
+requires 'Module::ScanDeps' => '1.09'; #detects prereqs better
+requires 'Parse::CPAN::Meta' => '1.4413';
+requires 'Win32::UTCFileTime' => '1.56' if win32;
+requires 'YAML::Tiny' => '1.38';
+
test_requires 'Test::Harness' => '3.13';
test_requires 'Test::More' => '0.86';
+recommends 'Archive::Zip' => '1.37';
+recommends 'File::HomeDir' => '1';
+recommends 'JSON' => '2.9';
+recommends 'LWP::Simple' => '6.00';
+recommends 'LWP::UserAgent' => '6.05';
+recommends 'PAR::Dist' => '0.29';
+
# Remove some extra test files
clean_files( qw{ t/Foo } );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/Base.pm
new/Module-Install-1.14/inc/Module/Install/Base.pm
--- old/Module-Install-1.08/inc/Module/Install/Base.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/Base.pm 2014-10-25
15:11:23.000000000 +0200
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
}
# Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/Can.pm
new/Module-Install-1.14/inc/Module/Install/Can.pm
--- old/Module-Install-1.08/inc/Module/Install/Can.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/Can.pm 2014-10-25
15:11:23.000000000 +0200
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/Fetch.pm
new/Module-Install-1.14/inc/Module/Install/Fetch.pm
--- old/Module-Install-1.08/inc/Module/Install/Fetch.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/Fetch.pm 2014-10-25
15:11:23.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/Makefile.pm
new/Module-Install-1.14/inc/Module/Install/Makefile.pm
--- old/Module-Install-1.08/inc/Module/Install/Makefile.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/Makefile.pm 2014-10-25
15:11:23.000000000 +0200
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -133,7 +133,7 @@
return $args;
}
-# For mm args that take multiple space-seperated args,
+# For mm args that take multiple space-separated args,
# append an argument to the current list.
sub makemaker_append {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/Metadata.pm
new/Module-Install-1.14/inc/Module/Install/Metadata.pm
--- old/Module-Install-1.08/inc/Module/Install/Metadata.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/Metadata.pm 2014-10-25
15:11:23.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -347,7 +347,7 @@
^ \s*
package \s*
([\w:]+)
- \s* ;
+ [\s|;]*
/ixms
) {
my ($name, $module_name) = ($1, $1);
@@ -705,7 +705,7 @@
my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
my $meta = $yaml[0];
- # Overwrite the non-configure dependency hashs
+ # Overwrite the non-configure dependency hashes
delete $meta->{requires};
delete $meta->{build_requires};
delete $meta->{recommends};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/Win32.pm
new/Module-Install-1.14/inc/Module/Install/Win32.pm
--- old/Module-Install-1.08/inc/Module/Install/Win32.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/Win32.pm 2014-10-25
15:11:23.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/With.pm
new/Module-Install-1.14/inc/Module/Install/With.pm
--- old/Module-Install-1.08/inc/Module/Install/With.pm 1970-01-01
01:00:00.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/With.pm 2014-10-25
15:11:23.000000000 +0200
@@ -0,0 +1,82 @@
+#line 1
+package Module::Install::With;
+
+# See POD at end for docs
+
+use strict;
+use Module::Install::Base ();
+
+use vars qw{$VERSION @ISA $ISCORE};
+BEGIN {
+ $VERSION = '1.14';
+ @ISA = 'Module::Install::Base';
+ $ISCORE = 1;
+}
+
+#line 21
+
+#####################################################################
+# Installer Target
+
+# Are we targeting ExtUtils::MakeMaker (running as Makefile.PL)
+sub eumm {
+ !! ($0 =~ /Makefile.PL$/i);
+}
+
+# You should not be using this, but we'll keep the hook anyways
+sub mb {
+ !! ($0 =~ /Build.PL$/i);
+}
+
+
+
+
+
+#####################################################################
+# Testing and Configuration Contexts
+
+#line 53
+
+sub interactive {
+ # Treat things interactively ONLY based on input
+ !! (-t STDIN and ! automated_testing());
+}
+
+#line 71
+
+sub automated_testing {
+ !! $ENV{AUTOMATED_TESTING};
+}
+
+#line 90
+
+sub release_testing {
+ !! $ENV{RELEASE_TESTING};
+}
+
+sub author_context {
+ !! $Module::Install::AUTHOR;
+}
+
+
+
+
+
+#####################################################################
+# Operating System Convenience
+
+#line 118
+
+sub win32 {
+ !! ($^O eq 'MSWin32');
+}
+
+#line 135
+
+sub winlike {
+ !! ($^O eq 'MSWin32' or $^O eq 'cygwin');
+}
+
+1;
+
+#line 163
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install/WriteAll.pm
new/Module-Install-1.14/inc/Module/Install/WriteAll.pm
--- old/Module-Install-1.08/inc/Module/Install/WriteAll.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install/WriteAll.pm 2014-10-25
15:11:23.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/inc/Module/Install.pm
new/Module-Install-1.14/inc/Module/Install.pm
--- old/Module-Install-1.08/inc/Module/Install.pm 2014-03-06
18:07:13.000000000 +0100
+++ new/Module-Install-1.14/inc/Module/Install.pm 2014-10-25
15:11:22.000000000 +0200
@@ -17,7 +17,7 @@
# 3. The ./inc/ version of Module::Install loads
# }
-use 5.005;
+use 5.006;
use strict 'vars';
use Cwd ();
use File::Find ();
@@ -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.08';
+ $VERSION = '1.14';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -156,10 +156,10 @@
sub autoload {
my $self = shift;
my $who = $self->_caller;
- my $cwd = Cwd::cwd();
+ my $cwd = Cwd::getcwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
- my $pwd = Cwd::cwd();
+ my $pwd = Cwd::getcwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
@@ -239,7 +239,7 @@
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
- unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
+ unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) {
delete $args{prefix};
}
return $args{_self} if $args{_self};
@@ -338,7 +338,7 @@
if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
my $content = Module::Install::_read($subpath . '.pm');
my $in_pod = 0;
- foreach ( split //, $content ) {
+ foreach ( split /\n/, $content ) {
$in_pod = 1 if /^=\w/;
$in_pod = 0 if /^=cut/;
next if ($in_pod || /^=cut/); # skip pod text
@@ -378,6 +378,7 @@
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;
@@ -386,6 +387,7 @@
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;
@@ -416,6 +418,7 @@
sub _write {
local *FH;
open( FH, '>', $_[0] ) or die "open($_[0]): $!";
+ binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}
@@ -425,6 +428,7 @@
sub _write {
local *FH;
open( FH, "> $_[0]" ) or die "open($_[0]): $!";
+ binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}
@@ -434,7 +438,7 @@
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
-sub _version ($) {
+sub _version {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
@@ -450,12 +454,12 @@
return $l + 0;
}
-sub _cmp ($$) {
+sub _cmp {
_version($_[1]) <=> _version($_[2]);
}
# Cloned from Params::Util::_CLASS
-sub _CLASS ($) {
+sub _CLASS {
(
defined $_[0]
and
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/AutoInstall.pm
new/Module-Install-1.14/lib/Module/AutoInstall.pm
--- old/Module-Install-1.08/lib/Module/AutoInstall.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/AutoInstall.pm 2014-10-25
15:00:53.000000000 +0200
@@ -7,7 +7,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
}
# special map on pre-defined feature sets
@@ -114,7 +114,7 @@
print "*** $class version " . $class->VERSION . "\n";
print "*** Checking for Perl dependencies...\n";
- my $cwd = Cwd::cwd();
+ my $cwd = Cwd::getcwd();
$Config = [];
@@ -165,7 +165,7 @@
$modules = [ %{$modules} ] if UNIVERSAL::isa( $modules, 'HASH' );
unshift @$modules, -default => &{ shift(@$modules) }
- if ( ref( $modules->[0] ) eq 'CODE' ); # XXX: bugward
combatability
+ if ( ref( $modules->[0] ) eq 'CODE' ); # XXX: bugward
compatibility
while ( my ( $mod, $arg ) = splice( @$modules, 0, 2 ) ) {
if ( $mod =~ m/^-(\w+)$/ ) {
@@ -344,22 +344,26 @@
my $i; # used below to strip leading '-' from config keys
my @config = ( map { s/^-// if ++$i; $_ } @{ +shift } );
- my ( @modules, @installed );
- while ( my ( $pkg, $ver ) = splice( @_, 0, 2 ) ) {
+ my ( @modules, @installed, @modules_to_upgrade );
+ while (my ($pkg, $ver) = splice(@_, 0, 2)) {
- # grep out those already installed
- if ( _version_cmp( _version_of($pkg), $ver ) >= 0 ) {
- push @installed, $pkg;
- }
- else {
- push @modules, $pkg, $ver;
- }
- }
+ # grep out those already installed
+ if (_version_cmp(_version_of($pkg), $ver) >= 0) {
+ push @installed, $pkg;
+ if ($UpgradeDeps) {
+ push @modules_to_upgrade, $pkg, $ver;
+ }
+ }
+ else {
+ push @modules, $pkg, $ver;
+ }
+ }
- if ($UpgradeDeps) {
- push @modules, @installed;
- @installed = ();
- }
+ if ($UpgradeDeps) {
+ push @modules, @modules_to_upgrade;
+ @installed = ();
+ @modules_to_upgrade = ();
+ }
return @installed unless @modules; # nothing to do
return @installed if _check_lock(); # defer to the CPAN shell
@@ -610,7 +614,7 @@
require Cwd;
require File::Spec;
- my $cwd = File::Spec->canonpath( Cwd::cwd() );
+ my $cwd = File::Spec->canonpath( Cwd::getcwd() );
my $cpan = File::Spec->canonpath( $CPAN::Config->{cpan_home} );
return ( index( $cwd, $cpan ) > -1 );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/Bundle.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Bundle.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Bundle.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Bundle.pm 2014-10-25
15:00:53.000000000 +0200
@@ -2,11 +2,10 @@
use strict;
use Module::Install::Base;
-use Module::CoreList;
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/Compiler.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Compiler.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Compiler.pm
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Compiler.pm
2014-10-25 15:00:53.000000000 +0200
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Admin/Find.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Find.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Find.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Find.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use Module::Install::Base ();
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw(Module::Install::Base);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/Include.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Include.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Include.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Include.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
}
@@ -59,7 +59,7 @@
=head1 NAME
-Module::Install::Admin::Include
+Module::Install::Admin::Include - include methods for Module::Install
=head2 auto_include_dependent_dists
@@ -149,7 +149,7 @@
=for private _dist_to_mods $distname
Takes the output of CPAN::Module->cpan_file and return all the modules
-that CPAN.pm knows are in that dist. There's probably a beter way using
CPANPLUS
+that CPAN.pm knows are in that dist. There's probably a better way using
CPANPLUS
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/Makefile.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Makefile.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Makefile.pm
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Makefile.pm
2014-10-25 15:00:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/Manifest.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Manifest.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Manifest.pm
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Manifest.pm
2014-10-25 15:00:53.000000000 +0200
@@ -5,11 +5,11 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
}
-use Cwd;
+use Cwd ();
use File::Spec;
# XXX I really want this method in Module::Install::Admin::Makefile
@@ -93,7 +93,7 @@
my $manifest_path = '';
my $relative_path = '';
my @relative_dirs = ();
- my $cwd = Cwd::cwd();
+ my $cwd = Cwd::getcwd();
my @cwd_dirs = File::Spec->splitdir($cwd);
while ( @cwd_dirs ) {
last unless -f File::Spec->catfile(@cwd_dirs, 'Makefile.PL');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/Metadata.pm
new/Module-Install-1.14/lib/Module/Install/Admin/Metadata.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/Metadata.pm
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/Metadata.pm
2014-10-25 15:00:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
}
@@ -60,7 +60,7 @@
delete $val->{sign};
# Dependencies MUST be assumed to be dynamic unless indicated
- # otherwise, otherwise a negligant author who accidentally forgets
+ # otherwise, otherwise a negligent author who accidentally forgets
# to say which will release modules that break on some platforms.
unless ( defined $val->{dynamic_config} ) {
$val->{dynamic_config} = 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/ScanDeps.pm
new/Module-Install-1.14/lib/Module/Install/Admin/ScanDeps.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/ScanDeps.pm
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/ScanDeps.pm
2014-10-25 15:00:53.000000000 +0200
@@ -4,7 +4,7 @@
use Module::Install::Base ();
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw(Module::Install::Base);
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/Admin/WriteAll.pm
new/Module-Install-1.14/lib/Module/Install/Admin/WriteAll.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin/WriteAll.pm
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin/WriteAll.pm
2014-10-25 15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Admin.pm
new/Module-Install-1.14/lib/Module/Install/Admin.pm
--- old/Module-Install-1.08/lib/Module/Install/Admin.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Admin.pm 2014-10-25
15:00:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install';
}
@@ -133,27 +133,29 @@
chomp $to;
- local (*FROM, *TO, $_);
- open FROM, "< $from" or die "Can't open $from for input:\n$!";
- open TO, "> $to" or die "Can't open $to for output:\n$!";
- print TO "#line 1\n";
+ local ($_);
+ open my $FROM, "<", $from or die "Can't open $from for input:\n$!";
+ open my $TO, ">", $to or die "Can't open $to for output:\n$!";
+ binmode $FROM;
+ binmode $TO;
+ print $TO "#line 1\n";
my $content;
my $in_pod;
- while ( <FROM> ) {
+ while ( <$FROM> ) {
if ( /^=(?:b(?:egin|ack)|head\d|(?:po|en)d|item|(?:ove|fo)r)/ )
{
$in_pod = 1;
} elsif ( /^=cut\s*\z/ and $in_pod ) {
$in_pod = 0;
- print TO "#line $.\n";
+ print $TO "#line $.\n";
} elsif ( ! $in_pod ) {
- print TO $_;
+ print $TO $_;
}
}
- close FROM;
- close TO;
+ close $FROM or die "Can't close $from for input:\n$!";
+ close $TO or die "Can't close $to for output:\n$!";
print "include $to\n";
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/lib/Module/Install/AutoInstall.pm
new/Module-Install-1.14/lib/Module/Install/AutoInstall.pm
--- old/Module-Install-1.08/lib/Module/Install/AutoInstall.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/AutoInstall.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Base.pm
new/Module-Install-1.14/lib/Module/Install/Base.pm
--- old/Module-Install-1.08/lib/Module/Install/Base.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Base.pm 2014-10-25
15:00:53.000000000 +0200
@@ -3,7 +3,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
}
# Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Bundle.pm
new/Module-Install-1.14/lib/Module/Install/Bundle.pm
--- old/Module-Install-1.08/lib/Module/Install/Bundle.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Bundle.pm 2014-10-25
15:00:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -137,7 +137,7 @@
Bundling differs from auto-installation in that when it comes time to
install, a bundled distribution will be installed based on the distribution
-bundled with your distribution, whereas with auto-installation the distibution
+bundled with your distribution, whereas with auto-installation the distribution
to be installed will be acquired from CPAN and then installed.
=head1 METHODS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Can.pm
new/Module-Install-1.14/lib/Module/Install/Can.pm
--- old/Module-Install-1.08/lib/Module/Install/Can.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Can.pm 2014-10-25
15:00:53.000000000 +0200
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -212,7 +212,7 @@
functionality from different problem domains (for example C<can_run>).
This module should ultimately be broken up, and the individual
-functions redestributed to different domain-specific extensions.
+functions redistributed to different domain-specific extensions.
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Compiler.pm
new/Module-Install-1.14/lib/Module/Install/Compiler.pm
--- old/Module-Install-1.08/lib/Module/Install/Compiler.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Compiler.pm 2014-10-25
15:00:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/DSL.pm
new/Module-Install-1.14/lib/Module/Install/DSL.pm
--- old/Module-Install-1.08/lib/Module/Install/DSL.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/DSL.pm 2014-10-25
15:00:53.000000000 +0200
@@ -3,7 +3,7 @@
use strict;
use vars qw{$VERSION $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
$ISCORE = 1;
*inc::Module::Install::DSL::VERSION = *VERSION;
@inc::Module::Install::DSL::ISA = __PACKAGE__;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Deprecated.pm
new/Module-Install-1.14/lib/Module/Install/Deprecated.pm
--- old/Module-Install-1.08/lib/Module/Install/Deprecated.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Deprecated.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/External.pm
new/Module-Install-1.14/lib/Module/Install/External.pm
--- old/Module-Install-1.08/lib/Module/Install/External.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/External.pm 2014-10-25
15:00:53.000000000 +0200
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -124,7 +124,7 @@
in a way that an automated installation or testing system will interpret
as a C<NA> ("not applicable to this platform") result.
-This may be be changed to an alternative abort result at a later time.
+This may be changed to an alternative abort result at a later time.
Returns true as a convenience.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/FAQ.pod
new/Module-Install-1.14/lib/Module/Install/FAQ.pod
--- old/Module-Install-1.08/lib/Module/Install/FAQ.pod 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/FAQ.pod 2014-03-09
17:04:32.000000000 +0100
@@ -34,7 +34,7 @@
Not at all, B<using C<auto_install()> is just fine>. While it indeed
behaved erratically in older L<Module::Install> versions, there have
-been no reported issues since mid-2009. As far as compatbility with
+been no reported issues since mid-2009. As far as compatibility with
various CPAN clients: several rather large projects on CPAN (including
L<Catalyst> and L<DBIx::Class>), are using C<auto_install> without any
issues reported by their substantial userbases.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Fetch.pm
new/Module-Install-1.14/lib/Module/Install/Fetch.pm
--- old/Module-Install-1.08/lib/Module/Install/Fetch.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Fetch.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Include.pm
new/Module-Install-1.14/lib/Module/Install/Include.pm
--- old/Module-Install-1.08/lib/Module/Install/Include.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Include.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Inline.pm
new/Module-Install-1.14/lib/Module/Install/Inline.pm
--- old/Module-Install-1.08/lib/Module/Install/Inline.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Inline.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/MakeMaker.pm
new/Module-Install-1.14/lib/Module/Install/MakeMaker.pm
--- old/Module-Install-1.08/lib/Module/Install/MakeMaker.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/MakeMaker.pm 2014-10-25
15:00:53.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Makefile.pm
new/Module-Install-1.14/lib/Module/Install/Makefile.pm
--- old/Module-Install-1.08/lib/Module/Install/Makefile.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Makefile.pm 2014-10-25
15:00:53.000000000 +0200
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -132,7 +132,7 @@
return $args;
}
-# For mm args that take multiple space-seperated args,
+# For mm args that take multiple space-separated args,
# append an argument to the current list.
sub makemaker_append {
my $self = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Metadata.pm
new/Module-Install-1.14/lib/Module/Install/Metadata.pm
--- old/Module-Install-1.08/lib/Module/Install/Metadata.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Metadata.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -346,7 +346,7 @@
^ \s*
package \s*
([\w:]+)
- \s* ;
+ [\s|;]*
/ixms
) {
my ($name, $module_name) = ($1, $1);
@@ -704,7 +704,7 @@
my @yaml = Parse::CPAN::Meta::LoadFile('META.yml');
my $meta = $yaml[0];
- # Overwrite the non-configure dependency hashs
+ # Overwrite the non-configure dependency hashes
delete $meta->{requires};
delete $meta->{build_requires};
delete $meta->{recommends};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/PAR.pm
new/Module-Install-1.14/lib/Module/Install/PAR.pm
--- old/Module-Install-1.08/lib/Module/Install/PAR.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/PAR.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -246,7 +246,7 @@
my ($self, $file) = @_;
unlink $file if -f $file;
- unless ( eval { require PAR::Dist; PAR::Dist->VERSION >= 0.03 } ) {
+ unless ( eval { require PAR::Dist; PAR::Dist->VERSION(0.03) } ) {
warn "Please install PAR::Dist 0.03 or above first.";
return;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Run.pm
new/Module-Install-1.14/lib/Module/Install/Run.pm
--- old/Module-Install-1.08/lib/Module/Install/Run.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Run.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Scripts.pm
new/Module-Install-1.14/lib/Module/Install/Scripts.pm
--- old/Module-Install-1.08/lib/Module/Install/Scripts.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Scripts.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Share.pm
new/Module-Install-1.14/lib/Module/Install/Share.pm
--- old/Module-Install-1.08/lib/Module/Install/Share.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Share.pm 2014-10-25
15:00:53.000000000 +0200
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/Win32.pm
new/Module-Install-1.14/lib/Module/Install/Win32.pm
--- old/Module-Install-1.08/lib/Module/Install/Win32.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/Win32.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/With.pm
new/Module-Install-1.14/lib/Module/Install/With.pm
--- old/Module-Install-1.08/lib/Module/Install/With.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/With.pm 2014-10-25
15:00:53.000000000 +0200
@@ -7,14 +7,18 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
+=pod
+=head1 NAME
+Module::Install::With - find environnement for Module::Install
+=cut
#####################################################################
# Installer Target
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install/WriteAll.pm
new/Module-Install-1.14/lib/Module/Install/WriteAll.pm
--- old/Module-Install-1.08/lib/Module/Install/WriteAll.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install/WriteAll.pm 2014-10-25
15:00:53.000000000 +0200
@@ -5,7 +5,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install.pm
new/Module-Install-1.14/lib/Module/Install.pm
--- old/Module-Install-1.08/lib/Module/Install.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install.pm 2014-10-25
15:00:53.000000000 +0200
@@ -16,7 +16,7 @@
# 3. The ./inc/ version of Module::Install loads
# }
-use 5.005;
+use 5.006;
use strict 'vars';
use Cwd ();
use File::Find ();
@@ -30,7 +30,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.08';
+ $VERSION = '1.14';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -155,10 +155,10 @@
sub autoload {
my $self = shift;
my $who = $self->_caller;
- my $cwd = Cwd::cwd();
+ my $cwd = Cwd::getcwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
- my $pwd = Cwd::cwd();
+ my $pwd = Cwd::getcwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
@@ -238,7 +238,7 @@
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
- unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
+ unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) {
delete $args{prefix};
}
return $args{_self} if $args{_self};
@@ -337,7 +337,7 @@
if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
my $content = Module::Install::_read($subpath . '.pm');
my $in_pod = 0;
- foreach ( split //, $content ) {
+ foreach ( split /\n/, $content ) {
$in_pod = 1 if /^=\w/;
$in_pod = 0 if /^=cut/;
next if ($in_pod || /^=cut/); # skip pod text
@@ -377,6 +377,7 @@
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;
@@ -385,6 +386,7 @@
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;
@@ -415,6 +417,7 @@
sub _write {
local *FH;
open( FH, '>', $_[0] ) or die "open($_[0]): $!";
+ binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}
@@ -424,6 +427,7 @@
sub _write {
local *FH;
open( FH, "> $_[0]" ) or die "open($_[0]): $!";
+ binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}
@@ -433,7 +437,7 @@
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
-sub _version ($) {
+sub _version {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
@@ -449,12 +453,12 @@
return $l + 0;
}
-sub _cmp ($$) {
+sub _cmp {
_version($_[1]) <=> _version($_[2]);
}
# Cloned from Params::Util::_CLASS
-sub _CLASS ($) {
+sub _CLASS {
(
defined $_[0]
and
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/Module/Install.pod
new/Module-Install-1.14/lib/Module/Install.pod
--- old/Module-Install-1.08/lib/Module/Install.pod 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/Module/Install.pod 2014-08-29
11:06:36.000000000 +0200
@@ -9,18 +9,18 @@
In your F<Makefile.PL>: (Recommended Usage)
use inc::Module::Install;
-
+
# Define metadata
name 'Your-Module';
all_from 'lib/Your/Module.pm';
-
+
# Specific dependencies
requires 'File::Spec' => '0.80';
test_requires 'Test::More' => '0.42';
recommends 'Text::CSV_XS'=> '0.50';
no_index 'directory' => 'demos';
install_script 'myscript';
-
+
WriteAll;
Quickly upgrade a legacy L<ExtUtil::MakeMaker> installer:
@@ -60,7 +60,7 @@
These have accumulated B<greatly> varying feature and bug profiles over
the years, and it is now very difficult to write an installer that will
-work properly using only the installed versions of these modules,
+work properly using only the installed versions of these modules,
For example, the L<CPAN.pm> version shipped with Perl 5.005 is now 5+
years old and considered highly buggy, yet it still exists on quite a
@@ -279,7 +279,7 @@
Note that the dependency is on a B<module> and not a distribution. This
is to ensure that your dependency stays correct, even if the module is
-moved or merged into a different distribtion, as is occasionally the
+moved or merged into a different distribution, as is occasionally the
case.
A dependency on version zero indicates B<any> version of module is
@@ -328,7 +328,7 @@
configure_requires: key in the distribution's F<META.yml> file.
Although most of F<META.yml> is considered advisory only, a L<CPAN>
-client will treat the contents of configure_requires: as authorative,
+client will treat the contents of configure_requires: as authoritive,
and install the listed modules B<before> it executes the F<Makefile.PL>
(from which it then determines the other dependencies).
@@ -375,8 +375,8 @@
> scriptname
Running scriptname 0.01...
-
- >
+
+ >
By convention, scripts should be placed in a /script directory within your
distribution. To support less typing, if a script is located in the script
@@ -391,18 +391,18 @@
no_index directory => 'examples';
no_index package => 'DB';
-Quite often a distrubition will provide example scripts or testing
+Quite often a distribition will provide example scripts or testing
modules (.pm files) as well as the actual library modules.
In almost all situations, you do B<not> want these indexed in the CPAN
-index, the master Perl packages list, or displayed on the
-L<http://search.cpan.org/> website, you just want them along for the
+index, the master Perl packages list, or displayed on L<https://metacpan.org/>
+or L<http://search.cpan.org/> websites, you just want them along for the
ride.
The C<no_index> command is used to indicate directories or files where
there might be non-library .pm files or other files that the CPAN
-indexer and websites such as L<http://search.cpan.org/> should
-explicitly ignore.
+indexer and websites such as L<https://metacpan.org/>
+or L<http://search.cpan.org/> should explicitly ignore.
The most common situation is to ignore example or demo directories,
but a variety of different situations may require a C<no_index> entry.
@@ -418,8 +418,9 @@
are automatically C<no_index>'ed for you if found and do not require
an explicit command.
-To summarize, if you can see it on L<http://search.cpan.org/> and you
-shouldn't be able to, you need a C<no_index> entry to remove it.
+To summarize, if you can see it on L<https://metacpan.org/>
+or L<http://search.cpan.org/> and you shouldn't be able to, you need
+a C<no_index> entry to remove it.
=head2 installdirs, install_as_*
@@ -688,7 +689,7 @@
smallest possible F<Makefile.PL>.
use inc::Module::Install;
-
+
name 'Method-Alias';
all_from 'lib/Method/Alias.pm';
test_requires 'Test::More' => '0.42';
@@ -699,22 +700,22 @@
an installer that can handle different dependencies on different platforms.
use inc::Module::Install;
-
+
name 'File-HomeDir';
all_from 'lib/File/HomeDir.pm';
requires 'File::Spec' => '0.80';
test_requires 'Test::More' => '0.47';
-
+
if ( $MacPerl::Version ) {
# Needed on legacy Mac OS 9
requires 'Mac::Files' => 0;
}
-
+
if ( $^O eq 'MXWin32' ) {
# Needed on Windows platforms
requires 'Win32::TieRegistry' => 0;
}
-
+
WriteAll;
=head1 TO DO
@@ -730,7 +731,7 @@
Test recursive Makefile directories
The test suite needs a great deal more test scripts.
-
+
Dependencies on shared libraries (libxml/libxml.dll etc) and binary files
so that debian/Win32/etc autopackaging applications can create the
appropriate package-level dependencies there.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/inc/Module/Install/DSL.pm
new/Module-Install-1.14/lib/inc/Module/Install/DSL.pm
--- old/Module-Install-1.08/lib/inc/Module/Install/DSL.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/inc/Module/Install/DSL.pm 2014-10-25
15:00:53.000000000 +0200
@@ -18,7 +18,7 @@
# version an author currently has installed.
# This allows it to implement any back-compatibility features
# it may want or need to.
- $VERSION = '1.08';
+ $VERSION = '1.14';
}
if ( -d './inc' ) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/lib/inc/Module/Install.pm
new/Module-Install-1.14/lib/inc/Module/Install.pm
--- old/Module-Install-1.08/lib/inc/Module/Install.pm 2014-03-06
18:05:08.000000000 +0100
+++ new/Module-Install-1.14/lib/inc/Module/Install.pm 2014-10-25
15:00:53.000000000 +0200
@@ -18,7 +18,7 @@
# version an author currently has installed.
# This allows it to implement any back-compatibility features
# it may want or need to.
- $VERSION = '1.08';
+ $VERSION = '1.14';
}
if ( -d './inc' ) {
@@ -127,9 +127,9 @@
}
# adapted from CPAN::HandleConfig
-sub _home () {
+sub _home {
my $home;
- if (eval "require File:HomeDir; 1") {
+ if (eval {require File::HomeDir; 1}) {
$home = File::HomeDir->can('my_dot_config')
? File::HomeDir->my_dot_config
: File::HomeDir->my_data;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/t/03_autoinstall.t
new/Module-Install-1.14/t/03_autoinstall.t
--- old/Module-Install-1.08/t/03_autoinstall.t 2014-03-06 18:05:08.000000000
+0100
+++ new/Module-Install-1.14/t/03_autoinstall.t 2014-05-06 19:39:20.000000000
+0200
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
use strict;
BEGIN {
@@ -22,7 +22,7 @@
use ExtUtils::MakeMaker;
sub ExtUtils::MakeMaker::WriteMakefile { $mm_args = {@_} }
-sub ExtUtils::MakeMaker::prompt ($;$) { return 'n' }
+sub ExtUtils::MakeMaker::prompt { return 'n' }
# tiehandle trick to intercept STDOUT.
sub PRINT { my $self = shift; $$self .= join '', @_; }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Module-Install-1.08/t/20_authors_with_special_characters.t
new/Module-Install-1.14/t/20_authors_with_special_characters.t
--- old/Module-Install-1.08/t/20_authors_with_special_characters.t
2014-03-06 18:05:08.000000000 +0100
+++ new/Module-Install-1.14/t/20_authors_with_special_characters.t
2014-10-25 14:58:43.000000000 +0200
@@ -13,6 +13,9 @@
plan tests => 26;
+require ExtUtils::MakeMaker;
+my $eumm = eval $ExtUtils::MakeMaker::VERSION;
+
SCOPE: {
ok( create_dist('Foo', { 'Makefile.PL' => <<"END_DSL" }), 'create_dist'
);
use inc::Module::Install 0.81;
@@ -90,7 +93,10 @@
ok(-f $file);
my $content = _read($file);
ok($content, 'file is not empty');
- ok($content =~ author_makefile_re("Olivier Mengu\xE9"), 'has
one author');
+ TODO: {
+ local $TODO = 'EUMM 7.00 fixed unicode but we have not' if $eumm gt
'6.98';
+ ok($content =~ author_makefile_re("Olivier Mengu\xE9"), 'has
one author');
+ }
my $metafile = file('META.yml');
ok(-f $metafile);
my $meta = Parse::CPAN::Meta::LoadFile($metafile);
@@ -115,7 +121,10 @@
ok(-f $file);
my $content = _read($file);
ok($content, 'file is not empty');
- ok($content =~ author_makefile_re("Olivier Mengu\xE9"), 'has
one author');
+ TODO: {
+ local $TODO = 'EUMM 7.00 fixed unicode but we have not' if $eumm gt
'6.98';
+ ok($content =~ author_makefile_re("Olivier Mengu\xE9"), 'has
one author');
+ }
my $metafile = file('META.yml');
ok(-f $metafile);
my $meta = Parse::CPAN::Meta::LoadFile($metafile);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/t/32_module_name.t
new/Module-Install-1.14/t/32_module_name.t
--- old/Module-Install-1.08/t/32_module_name.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-Install-1.14/t/32_module_name.t 2014-03-12 21:34:12.000000000
+0100
@@ -0,0 +1,68 @@
+#!perl
+
+use strict;
+
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+use Test::More tests => 8;
+
+my @package_name = (
+ 'package Foo::Bar;',
+ 'package Foo::Bar 1.23;',
+ 'package Foo::Bar { ... }',
+ 'package Foo::Bar 1.23 { ... }',
+);
+
+foreach (@package_name) {
+ if (
+ $_ =~ m/
+ ^ \s*
+ package \s*
+ ([\w:]+)
+ [\s|;]*
+ /ixms
+ )
+ {
+ my ($name, $module_name) = ($1, $1);
+ $name =~ s{::}{-}g;
+ is($module_name, 'Foo::Bar', "found module_name Foo::Bar in
$_");
+ is($name, 'Foo-Bar', "found name Foo-Bar in $_");
+ }
+}
+
+
+__END__
+
+Perl 5.12 introduced:
+
+ package Foo::Bar 1.23;
+ ...;
+
+Perl 5.14 introduced:
+
+ package Foo::Bar { ... }
+
+and they can be combined as:
+
+ package Foo::Bar 1.23 { ... }
+
+The name_from regex doesn't support any of the above. It expects the package
name to be followed by optional whitespace then a semicolon.
+
+###
+
+approx line 342 in package Module::Install::Metadata::name_from;
+
+
+
+
+
+
+
+
+
+
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/t/33_copy.t
new/Module-Install-1.14/t/33_copy.t
--- old/Module-Install-1.08/t/33_copy.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Module-Install-1.14/t/33_copy.t 2014-09-15 21:19:18.000000000 +0200
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use Test::More;
+use Module::Install::Admin;
+use File::Temp qw/ tempdir /;
+use autodie;
+
+my $dir = tempdir;
+chdir $dir;
+
+open my $test, ">", "a";
+binmode $test;
+print $test "\n\r\n\r\r";
+close $test;
+
+Module::Install::Admin->copy( "a", "b" );
+
+is -s "b", 13, "Module::Install::Admin::copy copies in binary mode";
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/t/34_readwrite.t
new/Module-Install-1.14/t/34_readwrite.t
--- old/Module-Install-1.08/t/34_readwrite.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Module-Install-1.14/t/34_readwrite.t 2014-09-15 21:19:18.000000000
+0200
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use Test::More;
+use Module::Install::Admin;
+use File::Temp qw/ tempdir /;
+use autodie;
+
+my $dir = tempdir;
+chdir $dir;
+
+open my $test, ">", "a";
+binmode $test;
+print $test "\n\r\n\r\r";
+close $test;
+
+my $c = Module::Install::_read( "a" );
+is length $c, 5, "Module::Install::_read reads in binary mode";
+Module::Install::_write( "b", $c );
+is -s "b", 5, "Module::Install::Admin::_write writes in binary mode";
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Module-Install-1.08/t/lib/Test.pm
new/Module-Install-1.14/t/lib/Test.pm
--- old/Module-Install-1.08/t/lib/Test.pm 2014-03-06 18:05:09.000000000
+0100
+++ new/Module-Install-1.14/t/lib/Test.pm 2014-10-25 15:10:52.000000000
+0200
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA @EXPORT $DIST};
BEGIN {
- $VERSION = '1.08';
+ $VERSION = '1.14';
@ISA = 'Exporter';
@EXPORT = qw{
create_dist
@@ -189,10 +189,17 @@
sub kill_dist {
my $dir = dir();
return 1 unless -d $dir;
+ windows_delay();
File::Remove::remove( \1, $dir );
+ windows_delay();
return -d $dir ? 0 : 1;
}
+sub windows_delay {
+ return if $^O ne 'MSWin32';
+ select undef, undef, undef, 0.1;
+}
+
sub supports_capture {
# stolen from ExtUtils::MakeMaker's test
use ExtUtils::MM;
