27 lines
1.0 KiB
Diff
27 lines
1.0 KiB
Diff
--- Module-Build-0.4212/inc/Perl/OSType.pm.orig 2015-06-04 21:58:23.327600000 +0300
|
|
+++ Module-Build-0.4212/inc/Perl/OSType.pm 2015-06-04 21:58:59.656800000 +0300
|
|
@@ -54,6 +54,7 @@
|
|
solaris Unix
|
|
sunos Unix
|
|
cygwin Unix
|
|
+ msys Unix
|
|
os2 Unix
|
|
interix Unix
|
|
gnu Unix
|
|
--- Module-Build-0.4212/t/destinations.t.orig 2015-06-04 22:00:03.432200000 +0300
|
|
+++ Module-Build-0.4212/t/destinations.t 2015-06-04 22:00:48.656600000 +0300
|
|
@@ -300,11 +300,11 @@
|
|
sub have_same_ending {
|
|
my ($dir1, $dir2, $message) = @_;
|
|
|
|
- $dir1 =~ s{/$}{} if $^O eq 'cygwin'; # remove any trailing slash
|
|
+ $dir1 =~ s{/$}{} if $^O eq 'cygwin' || $^O eq 'msys'; # remove any trailing slash
|
|
my (undef, $dirs1, undef) = splitpath $dir1;
|
|
my @dir1 = splitdir $dirs1;
|
|
|
|
- $dir2 =~ s{/$}{} if $^O eq 'cygwin'; # remove any trailing slash
|
|
+ $dir2 =~ s{/$}{} if $^O eq 'cygwin' || $^O eq 'msys'; # remove any trailing slash
|
|
my (undef, $dirs2, undef) = splitpath $dir2;
|
|
my @dir2 = splitdir $dirs2;
|
|
|