From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 11 Dec 2006 18:33:21 +0000 (+0000)
Subject: Don't load the Win32 module on non-win32 platforms
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7cda84c25edae6d45a3e8e620b4c559e7a71899b;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@29519
---

diff --git a/lib/File/CheckTree.t b/lib/File/CheckTree.t
index 60f1a42..e4491d4 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