From 82068c1b5d86f467a718a1f8c02444afa0cd3686 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 1 Sep 2009 16:11:24 +0000 Subject: fix umask application git-svn-id: svn://tug.org/texlive/trunk@14981 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 84c99221002..1af542ef783 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -771,8 +771,8 @@ C<(-l $file)> will never return 'C' and so symlinks will be (uselessly) copied as regular files. C invokes C if target directories do not exist. Files -have mode C<0777>-I if they are executable and C<0666>-I -otherwise. +have mode C<0777> if they are executable and C<0666> otherwise, with +the set bits in I cleared in each case. C<$file> can begin with a file:/ prefix. @@ -824,7 +824,7 @@ sub copy binmode IN; $mode = (-x "$infile") ? oct("0777") : oct("0666"); - $mode -= umask; + $mode &= ~umask; open (OUT, ">$outfile") || die "open(>$outfile) failed: $!"; binmode OUT; -- cgit v1.2.3