Don't load the Win32 module on non-win32 platforms

p4raw-id: //depot/perl@29519

1 files changed, 6 insertions, 1 deletions

diff --git a/lib/File/CheckTree.t b/lib/File/CheckTree.t
index 60f1a425ab..e4491d413b 100755
--- a/lib/File/CheckTree.t
+++ b/lib/File/CheckTree.t
@@ -11,10 +11,15 @@ BEGIN { plan tests => 6 }
 
 use strict;
 
+BEGIN {
 # Cwd::cwd does an implicit "require Win32", but
 # the ../lib directory in @INC will no longer work once
 # we chdir() out of the "t" directory.
-use Win32;
+    if ($^O eq 'MSWin32') {
+	require Win32;
+	Win32->import();
+    }
+}
 
 use File::CheckTree;
 use File::Spec;          # used to get absolute paths