Skip to content

Commit 6492f7a

Browse files
committed
Merge pull request #202 from haarg/56fixes
Fixes for 5.6.1 compatibility
2 parents 4af3994 + 24a4758 commit 6492f7a

File tree

5 files changed

+7
-6
lines changed

5 files changed

+7
-6
lines changed

lib/ExtUtils/MakeMaker/version.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@
1010

1111
package ExtUtils::MakeMaker::version;
1212

13-
use 5.006002;
13+
use 5.006001;
1414
use strict;
1515

1616
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);

lib/ExtUtils/MakeMaker/version/vpp.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -123,7 +123,7 @@ sub currstr {
123123

124124
package ExtUtils::MakeMaker::version::vpp;
125125

126-
use 5.006002;
126+
use 5.006001;
127127
use strict;
128128

129129
use Config;

t/lib/MakeMaker/Test/Utils.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -429,7 +429,7 @@ Returns the return value of the given code.
429429
sub in_dir(&;$) {
430430
my $code = shift;
431431
require File::Temp;
432-
my $dir = shift || File::Temp->newdir;
432+
my $dir = shift || File::Temp::tempdir(TMPDIR => 1, CLEANUP => 1);
433433
# chdir to the new directory
434434
my $orig_dir = getcwd();
435435
chdir $dir or die "Can't chdir to $dir: $!";

t/meta_convert.t

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,9 +4,8 @@ use strict;
44
use warnings;
55

66
BEGIN { unshift @INC, 't/lib'; }
7-
use Test::More;
8-
eval { require CPAN::Meta; };
9-
plan skip_all => 'Failed to load CPAN::Meta' if $@;
7+
use Test::More eval { require CPAN::Meta; } ? ()
8+
: (skip_all => 'Failed to load CPAN::Meta');
109
use File::Temp qw[tempdir];
1110
require ExtUtils::MM_Any;
1211

t/metafile_data.t

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -358,6 +358,7 @@ SKIP: {
358358
skip 'Loading Parse::CPAN::Meta failed', 5 unless $PCM;
359359
my $meta = $mm->mymeta("t/META_for_testing_tricky_version.yml");
360360
is $meta->{'meta-spec'}{version}, 2, "internally, our MYMETA struct is v2";
361+
skip 'Loading CPAN::Meta failed', 4 unless $CM;
361362
in_dir {
362363
$mm->write_mymeta($meta);
363364
ok -e "MYMETA.yml";
@@ -372,6 +373,7 @@ SKIP: {
372373
note "A bad license string";
373374
SKIP: {
374375
skip 'Loading Parse::CPAN::Meta failed', 2 unless $PCM;
376+
skip 'Loading CPAN::Meta failed', 2 unless $CM;
375377
my $mm = $new_mm->(
376378
@GENERIC_IN,
377379
LICENSE => 'death and retribution',

0 commit comments

Comments
 (0)