Merge pull request #20 from pauloscustodio/master

Fix build in Windows/msys2
glasswalk3r · Apr 16, 2024 · 08fca17 · 08fca17
2 parents 5decd0f + 94bec47
commit 08fca17
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/t/001Basic.t b/t/001Basic.t
@@ -64,7 +64,7 @@ my $f3 = $a2->locate("foo/bar/permtest");
 my $perm = ( ( stat($f3) )[2] & oct('777') );
 
 SKIP: {
- skip 'Permissions are too different on Microsoft Windows', 1 if ($Config{osname} eq 'MSWin32');
+ skip 'Permissions are too different on Microsoft Windows', 1 if ($Config{osname} eq 'MSWin32' || $Config{osname} eq 'msys');
  is( $perm, oct(770), 'testing file permission inside the tarball' );
 }
 
@@ -126,7 +126,7 @@ else {
 
 SKIP: {
  skip 'Cannot check permissions on a non-existent file', 1 unless $f1;
- skip 'Permissions are too different on Microsoft Windows', 1 if ($Config{osname} eq 'MSWin32');
+ skip 'Permissions are too different on Microsoft Windows', 1 if ($Config{osname} eq 'MSWin32' || $Config{osname} eq 'msys');
  is( $perm, oct(664), 'testing file permissions' );
 }
 

diff --git a/t/006DirPerms.t b/t/006DirPerms.t
@@ -37,7 +37,7 @@ ok( $arch->add( "foo/foofile", $foofile ), "adding file" );
 ok( $arch->write($tarfile), "Tarring up" );
 
 SKIP: {
- skip 'Permissions are too different on Microsoft Windows', 1 if ($Config{osname} eq 'MSWin32');
+ skip 'Permissions are too different on Microsoft Windows', 1 if ($Config{osname} eq 'MSWin32' || $Config{osname} eq 'msys');
  my $tarread = Archive::Tar::Wrapper->new();
  $tarread->read($tarfile);
  my $loc = $tarread->locate("foo");