view release on metacpan or  search on metacpan

lib/Win32/Symlinks.pm  view on Meta::CPAN

          $retval += $r ? 0 : 1;
        } else {
          $retval += CORE::unlink($path);
        }
      }
      $retval;
    };
  }
}

sub l ($) {
  return 1 if defined readlink($_[0]);
  return 0;
}

# We need this because some versions of Perl (seen in 5.18) return true for -f dir_symlink
# and false for -d dir_symlink. This breaks the unlink override.
sub _test_d {
  my $path = shift;
  my $cmd = $ENV{COMSPEC} || 'cmd.exe';
  my $r = `"$cmd" /c cd "$path" 2>&1`;