Fixes issue #213

Author: hakonhagland

lib/Alien/Build/Util.pm

@@ -65,7 +65,19 @@ sub _mirror
         { unlink "$dst" }
         my $target = readlink "$src";
         Alien::Build->log("ln -s $target $dst") if $opt->{verbose};
+        if (path($target)->is_relative) {
+          if (!$src->parent->child($target)->exists) {
+            die "cannot create symlink to nonexistent file $target on MSYS2";
+          }
+           # NOTE: On linux, it is OK to create broken symlinks, but it is not allowed on 
+           #   windows MSYS2, so make sure the target exists.
+          $dst->parent->child($target)->touchpath;
+        }
+        my $curdir = Path::Tiny->cwd;
+        # CD into the directory, such that symlink will work on MSYS2
+        chdir $dst->parent or die "could not chdir to $src->parent : $!";
         symlink($target, $dst) || die "unable to symlink $target => $dst";
+        chdir $curdir or die "could not chdir to $curdir: $!";
       }
       elsif(-d "$src")
       {

t/alien_build_util.t

@@ -47,11 +47,16 @@ subtest 'mirror' => sub {
 
   if($Config{d_symlink})
   {
-    foreach my $new (map { $tmp1->child("lib/libfoo$_") } qw( .so.1.2 .so.1 .so ))
+    my $newdir = $tmp1->child("lib");
+    my $savedir = Path::Tiny->cwd;
+    # CD into the the $newdir such that symlink will work on MSYS2
+    chdir $newdir->stringify or die "unable to chdir to $newdir: $!";
+    foreach my $new (map { "libfoo$_" } qw( .so.1.2 .so.1 .so ))
     {
-      my $old = 'libfoo.so.1.2.3';
-      symlink($old, $new->stringify) || die "unable to symlink $new => $old $!";
+      my $old = $lib->basename;
+      symlink($old, $new) || die "unable to symlink $new => $old $!";
     }
+    chdir $savedir or die "unable to chdir to $savedir: $!";
   }
 
   my $tmp2 = Path::Tiny->tempdir("mirror_dst_XXXX");