From 3420f3f509a0c431d3fca0ab9e77790cc7fac1ab Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Thu, 3 Apr 2014 14:11:36 +1100
Subject: [PATCH] [perl #21442] only check link() error codes where link()
 works

Skip the tests on non-NTFS.
---
 t/win32/fs.t | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/t/win32/fs.t b/t/win32/fs.t
index 35d3617..b770311 100644
--- a/t/win32/fs.t
+++ b/t/win32/fs.t
@@ -8,6 +8,11 @@ BEGIN {
     die $@ if $@ and !is_miniperl();
 }
 
+my $has_link = Win32::FsType() eq 'NTFS';
+
+$has_link
+  or skip_all("link() only works on NTFS");
+
 plan tests => 4;
 
 my $tmpfile1 = tempfile();
-- 
2.7.4