summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-08-14 12:55:22 +0000
committerKarl Berry <karl@freefriends.org>2008-08-14 12:55:22 +0000
commit692cadb76fd466e13648572890ea7d2c8114ad96 (patch)
tree8e30a7d608975c6f15b2180063d1abde7e763f63
parentbb4b2e6c469e22c8766d321a1fd1e45bb4590038 (diff)
coverage, nicer msgs
git-svn-id: svn://tug.org/texlive/trunk@10340 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/tlpkg/bin/tl-update-install-pkg26
-rwxr-xr-xMaster/tlpkg/bin/tl-update-tlnet2
-rw-r--r--Master/tlpkg/tlpsrc/synctex.tlpsrc2
3 files changed, 18 insertions, 12 deletions
diff --git a/Master/tlpkg/bin/tl-update-install-pkg b/Master/tlpkg/bin/tl-update-install-pkg
index 88a1d047ea1..9c0eb3810a4 100755
--- a/Master/tlpkg/bin/tl-update-install-pkg
+++ b/Master/tlpkg/bin/tl-update-install-pkg
@@ -110,22 +110,23 @@ die "$0: Output directory not writable: $outputdir.\n" unless -w $outputdir;
# read TLPDB and extract files
-my $tlpdb = TeXLive::TLPDB->new ("root" => "$installerdir");
-die("Cannot find tlpdb in $installerdir!\n") unless defined($tlpdb);
+my $tlpdb = TeXLive::TLPDB->new ("root" => $installerdir);
+die "Cannot find tlpdb in $installerdir!\n" unless defined $tlpdb;
my $tlp = $tlpdb->get_package("00texlive.installer");
-die("Cannot find package 00texlive.installer in ${installerdir}'s texlive.tlpdb\n") unless defined($tlp);
+die "No 00texlive.installer in ${installerdir}'s texlive.tlpdb"
+ unless defined $tlp;
my $tlpinfra = $tlpdb->get_package("texlive.infra");
die("Cannot find package texlive.infra in ${installerdir}'s texlive.tlpdb\n") unless defined($tlp);
-my @unix;
+my @unix = ();
push @unix, $tlp->runfiles;
push @unix, $tlpinfra->runfiles;
push @unix, $tlp->docfiles;
-#
-# add the texlive-XX docs in pdf and html format if the option is given
+# add the texlive-XX docs in pdf and html format if the option is given.
+#
if ($opt_texlivedocs) {
foreach my $p (qw/texlive-en texlive-de texlive-fr texlive-cz texlive-pl texlive-ru texlive-zh-cn/) {
my $tlpdocs = $tlpdb->get_package($p);
@@ -147,8 +148,9 @@ if (defined $tlpbin{"win32"}) {
push (@win32, @{$tlpbin{"win32"}});
}
-### copy files from the repository to tmpdir
+# copy files from the repository to tmpdir.
+#
sub copy_files {
my ($dir, $file);
for (@_) {
@@ -162,8 +164,8 @@ sub copy_files {
}
}
-### create the .tar.gz and the .zip file
-
+# create the .tar.gz and the .zip files.
+#
sub make_zip
{
my ($type) = @_;
@@ -189,10 +191,12 @@ sub install_files
copy ("$tmpdir/install-tl.zip", $outputdir);
system ('ls', '-l', "$outputdir/install-tl.zip");
# leave uncompressed copy as files for sake of people mirroring.
- system ("cd $outputdir && unzip -q install-tl.zip");
+ system ("cd $outputdir && unzip -q -o install-tl.zip");
}
-### main
+
+# main.
+#
copy_files (@unix);
make_zip ('tgz');
diff --git a/Master/tlpkg/bin/tl-update-tlnet b/Master/tlpkg/bin/tl-update-tlnet
index 0a99b1a622e..25763da326e 100755
--- a/Master/tlpkg/bin/tl-update-tlnet
+++ b/Master/tlpkg/bin/tl-update-tlnet
@@ -137,7 +137,7 @@ if test -z "$unexpected_output"; then
else
rm -rf $tlweb
mv $tlwebtry $tlweb
- echo "$0: Updated, removing test installation."
+ echo "$0: Updated, removing test installation in $tlwebtrybase."
rm -rf $tlwebtrybase
echo "$0: Done."
fi
diff --git a/Master/tlpkg/tlpsrc/synctex.tlpsrc b/Master/tlpkg/tlpsrc/synctex.tlpsrc
index 81748b6d470..d11bf233fef 100644
--- a/Master/tlpkg/tlpsrc/synctex.tlpsrc
+++ b/Master/tlpkg/tlpsrc/synctex.tlpsrc
@@ -1,3 +1,5 @@
name synctex
category TLCore
binpattern f bin/${ARCH}/synctex
+docpattern f texmf/doc/man/man1/synctex.*
+docpattern f texmf/doc/man/man5/synctex.*