Don't load the Win32 module on non-win32 platforms
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 11 Dec 2006 18:33:21 +0000 (18:33 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 11 Dec 2006 18:33:21 +0000 (18:33 +0000)
p4raw-id: //depot/perl@29519

lib/File/CheckTree.t

index 60f1a42..e4491d4 100755 (executable)
@@ -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