From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Mon, 26 Jan 2009 19:25:32 +0000 (-0500)
Subject: Silence verbosity in lib/File/Copy.t during 'make test' in core
X-Git-Tag: code-review/2009-07-22~944
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/b1144ebad07605065136f9a584f60b816bdb011b?hp=c6d234b82f2f6387f4a8ddb73277519b5bca93fc

Silence verbosity in lib/File/Copy.t during 'make test' in core
---

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index 7081f5e..2ac93a6 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 $!;