diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2009-01-26 14:25:32 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-27 08:12:23 +0100 |
| commit | b1144ebad07605065136f9a584f60b816bdb011b (patch) | |
| tree | 513c0ac7df8b6e34628dc4a76adabe0da4261c40 | |
| parent | c6d234b82f2f6387f4a8ddb73277519b5bca93fc (diff) | |
| download | perl-b1144ebad07605065136f9a584f60b816bdb011b.tar.gz | |
Silence verbosity in lib/File/Copy.t during 'make test' in core
| -rwxr-xr-x | lib/File/Copy.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Copy.t b/lib/File/Copy.t index 7081f5e5ed..2ac93a61e9 100755 --- a/lib/File/Copy.t +++ b/lib/File/Copy.t @@ -284,8 +284,8 @@ SKIP: { $s_perm |= $id << 9; $c_perm1 |= $id << 9; - diag sprintf "Src permission: %04o; umask %03o\n", $s_perm, $umask; - + diag(sprintf "Src permission: %04o; umask %03o\n", $s_perm, $umask) + unless ($ENV{PERL_CORE}); (umask $umask) // die $!; chmod $s_perm => $src or die sprintf "$!: $src => %o", $s_perm; chmod $c_perm3 => $copy3 or die $!; |