summaryrefslogtreecommitdiff
path: root/Build/source/texk
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-02-25 22:41:15 +0000
committerKarl Berry <karl@freefriends.org>2019-02-25 22:41:15 +0000
commitb636af0b8e02e8e692b93c891b23189d3dd33807 (patch)
tree862fbb3f59704f02ad667dba9476996382c58d70 /Build/source/texk
parentbb200477182388524da9f7a8fa6f675ee858a5d4 (diff)
doc,sync
git-svn-id: svn://tug.org/texlive/trunk@50137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
-rw-r--r--Build/source/texk/README11
-rw-r--r--Build/source/texk/tests/TeXLive/TLUtils.pm23
2 files changed, 20 insertions, 14 deletions
diff --git a/Build/source/texk/README b/Build/source/texk/README
index ac0838b3399..726424538cb 100644
--- a/Build/source/texk/README
+++ b/Build/source/texk/README
@@ -38,7 +38,7 @@ detex 2.8.5 - checked 03feb19
https://github.com/pkubowicz/opendetex
old info: http://www.cs.purdue.edu/homes/trinkle/detex/
-dtl - ?
+dtl - maintained here, by Takuji
dvi2tty 6.0.0 - checked 05mar16
https://github.com/t-tk/dvi2tty
@@ -115,17 +115,18 @@ web2c - maintained here, by us - core web2c, plain tex, etc.
updated here by their respective maintainers. More info:
aleph - maintained here
ctie - CTAN
- cweb - Knuth, ftp://ftp.cs.stanford.edu/pub/cweb/
+ cweb - https://github.com/ascherer/cwebbin
+ (original Knuth, ftp://ftp.cs.stanford.edu/pub/cweb/)
eptex - https://github.com/texjporg/tex-jp-build
also: https://osdn.jp/projects/eptex
etex - maintained here
euptex - http://www.t-lab.opal.ne.jp/tex/uptex_en.html
mflua[jit] - https://serveur-svn.lri.fr/svn/modhel/mflua
also: http://www.luatex.org/download.html
- mplibdir - http://tug.org/metapost
+ mplibdir - http://tug.org/metapost/
also: http://www.luatex.org/download.html
- luatex - http://luatex.org
- pdftex - http://pdftex.org
+ luatex - http://luatex.org/
+ pdftex - http://pdftex.org/
[u]pmpost - nothing current, see README for old info
ptex - https://github.com/texjporg/tex-jp-build
old info: http://ascii.asciimw.jp/pb/ptex/
diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm
index aca30855ad5..c7cce80f505 100644
--- a/Build/source/texk/tests/TeXLive/TLUtils.pm
+++ b/Build/source/texk/tests/TeXLive/TLUtils.pm
@@ -1,4 +1,3 @@
-# $Id: TLUtils.pm 49855 2019-01-28 22:47:02Z karl $
# TeXLive::TLUtils.pm - the inevitable utilities for TeX Live.
# Copyright 2007-2019 Norbert Preining, Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +5,7 @@
package TeXLive::TLUtils;
-my $svnrev = '$Revision: 49855 $';
+my $svnrev = '$Revision: 50107 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -1137,10 +1136,14 @@ sub copy {
$outfile = "$destdir/$filename";
}
- mkdirhier ($destdir) unless -d "$destdir";
+ if (! -d $destdir) {
+ my ($ret,$err) = mkdirhier ($destdir);
+ die "mkdirhier($destdir) failed: $err\n" if ! $ret;
+ }
if (-l "$infile") {
- symlink (readlink $infile, "$destdir/$filename");
+ symlink (readlink $infile, "$destdir/$filename")
+ || die "symlink(readlink $infile, $destdir/$filename) failed: $!";
} else {
if (! open (IN, $infile)) {
warn "open($infile) failed, not copying: $!";
@@ -1148,13 +1151,13 @@ sub copy {
}
binmode IN;
- $mode = (-x "$infile") ? oct("0777") : oct("0666");
+ $mode = (-x $infile) ? oct("0777") : oct("0666");
$mode &= ~umask;
open (OUT, ">$outfile") || die "open(>$outfile) failed: $!";
binmode OUT;
- chmod $mode, "$outfile";
+ chmod ($mode, $outfile) || warn "chmod($mode,$outfile) failed: $!";
while ($read = sysread (IN, $buffer, $blocksize)) {
die "read($infile) failed: $!" unless defined $read;
@@ -1167,8 +1170,9 @@ sub copy {
}
}
close (OUT) || warn "close($outfile) failed: $!";
- close IN || warn "close($infile) failed: $!";;
- @stat = lstat ("$infile");
+ close (IN) || warn "close($infile) failed: $!";;
+ @stat = lstat ($infile);
+ die "lstat($infile) failed: $!" if ! @stat;
utime ($stat[8], $stat[9], $outfile);
}
}
@@ -2224,7 +2228,8 @@ sub unpack {
# we can remove it afterwards
$remove_containerfile = 1;
}
- if (!system_pipe($decompressor, $containerfile, $tarfile, $remove_container, @decompressorArgs)
+ if (!system_pipe($decompressor, $containerfile, $tarfile,
+ $remove_containerfile, @decompressorArgs)
||
! -f $tarfile) {
unlink($tarfile, $containerfile);