In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/760739869681af2201302efa1672bfc02458a556?hp=ba593fa967c44e6df4f1da861158e4bccc7bb768>
- Log -----------------------------------------------------------------
commit 760739869681af2201302efa1672bfc02458a556
Author: Nicholas Clark <n...@ccl4.org>
Date: Sat Feb 7 14:20:15 2009 +0000
Skip the 0oX... mode copying tests when chmod fails to set the mode on
files.
-----------------------------------------------------------------------
Summary of changes:
lib/File/Copy.t | 23 +++++++++++++++++++++++
1 files changed, 23 insertions(+), 0 deletions(-)
diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 2ac93a6..45bc612 100755
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -286,6 +286,29 @@ SKIP: {
$c_perm1 |= $id << 9;
diag(sprintf "Src permission: %04o; umask %03o\n", $s_perm, $umask)
unless ($ENV{PERL_CORE});
+
+ # Test that we can actually set a file to the correct permission.
+ # Slightly convoluted, because some operating systems will let us
+ # set a directory, but not a file. These should all work:
+ mkdir $copy1 or die "Can't mkdir $copy1: $!";
+ chmod $s_perm, $copy1 or die "Can't chmod %o $copy1: $!", $s_perm;
+ rmdir $copy1 or die "Can't rmdir $copy1: $!";
+ open my $fh0, '>', $copy1 or die "Can't open $copy1: $!";
+ close $fh0 or die "Can't close $copy1: $!";
+ unless (chmod $s_perm, $copy1) {
+ $TB->skip(sprintf "Can't chmod $copy1 to %o: $!", $s_perm)
+ for 1..6;
+ next;
+ }
+ my $perm0 = (stat $copy1) [2] & 07777;
+ unless ($perm0 == $s_perm) {
+ $TB->skip(sprintf "chmod %o $copy1 lies - we actually get %o",
+ $s_perm, $perm0)
+ for 1..6;
+ next;
+ }
+ unlink $copy1 or die "Can't unlink $copy1: $!";
+
(umask $umask) // die $!;
chmod $s_perm => $src or die sprintf "$!: $src => %o", $s_perm;
chmod $c_perm3 => $copy3 or die $!;
--
Perl5 Master Repository
