Change 33804 by [EMAIL PROTECTED] on 2008/05/10 15:37:03
Subject: [PATCH] Re: Change 33794: [PATCH] File::Copy & permission bits.
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Fri, 9 May 2008 13:06:14 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Copy.t#12 edit
Differences ...
==== //depot/perl/lib/File/Copy.t#12 (xtext) ====
Index: perl/lib/File/Copy.t
--- perl/lib/File/Copy.t#11~33794~ 2008-05-08 09:05:37.000000000 -0700
+++ perl/lib/File/Copy.t 2008-05-10 08:37:03.000000000 -0700
@@ -274,7 +274,10 @@
my $perm3 = (stat $copy3) [2] & 0xFFF;
is (__$perm1, __$c_perm1, "Permission bits set correctly");
is (__$perm2, __$c_perm1, "Permission bits set correctly");
- is (__$perm3, __$c_perm3, "Permission bits not modified");
+ TODO: {
+ local $TODO = 'Permission bits inconsistent under cygwin' if $^O
eq 'cygwin';
+ is (__$perm3, __$c_perm3, "Permission bits not modified");
+ }
}
umask $old_mask or die $!;
End of Patch.
