Change 29519 by [EMAIL PROTECTED] on 2006/12/11 18:33:21
Don't load the Win32 module on non-win32 platforms
Affected files ...
... //depot/perl/lib/File/CheckTree.t#6 edit
Differences ...
==== //depot/perl/lib/File/CheckTree.t#6 (xtext) ====
Index: perl/lib/File/CheckTree.t
--- perl/lib/File/CheckTree.t#5~29509~ 2006-12-11 05:21:28.000000000 -0800
+++ perl/lib/File/CheckTree.t 2006-12-11 10:33:21.000000000 -0800
@@ -11,10 +11,15 @@
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
End of Patch.
