From 7cda84c25edae6d45a3e8e620b4c559e7a71899b Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 11 Dec 2006 18:33:21 +0000 Subject: Don't load the Win32 module on non-win32 platforms p4raw-id: //depot/perl@29519 --- lib/File/CheckTree.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lib') 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 -- cgit v1.2.1