summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
1 files changed, 3 insertions, 3 deletions
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<true>' and so symlinks will be
(uselessly) copied as regular files.
C<copy> invokes C<mkdirhier> if target directories do not exist. Files
-have mode C<0777>-I<umask> if they are executable and C<0666>-I<umask>
-otherwise.
+have mode C<0777> if they are executable and C<0666> otherwise, with
+the set bits in I<umask> 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;