135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update M::I

Browse Source
This commit is contained in:
Oliver Gorwits
2015-01-03 10:07:24 +00:00
parent ca078c8f62
commit 7a7e4b81ce
11 changed files with 21 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Netdisco/inc/Module/Install.pm
View File

@@ -31,7 +31,7 @@ BEGIN {
# 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.12';
$VERSION = '1.14';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -378,6 +378,7 @@ eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
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 @@ 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;
@@ -416,6 +418,7 @@ eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
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 @@ END_NEW
sub _write {
local *FH;
open( FH, "> $_[0]" ) or die "open($_[0]): $!";
binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}

2
Netdisco/inc/Module/Install/Base.pm
View File

@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
}
# Suspend handler for "redefined" warnings

2
Netdisco/inc/Module/Install/Can.pm
View File

@@ -8,7 +8,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/Fetch.pm
View File

@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/Makefile.pm
View File

@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/Metadata.pm
View File

@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/Scripts.pm
View File

@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/Share.pm
View File

@@ -8,7 +8,7 @@ use ExtUtils::Manifest ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/Win32.pm
View File

@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}

2
Netdisco/inc/Module/Install/WriteAll.pm
View File

@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.12';
$VERSION = '1.14';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}