diff options
author | Karl Berry <karl@freefriends.org> | 2008-08-14 12:55:22 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-08-14 12:55:22 +0000 |
commit | 692cadb76fd466e13648572890ea7d2c8114ad96 (patch) | |
tree | 8e30a7d608975c6f15b2180063d1abde7e763f63 /Master/tlpkg | |
parent | bb4b2e6c469e22c8766d321a1fd1e45bb4590038 (diff) |
coverage, nicer msgs
git-svn-id: svn://tug.org/texlive/trunk@10340 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-install-pkg | 26 | ||||
-rwxr-xr-x | Master/tlpkg/bin/tl-update-tlnet | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlpsrc/synctex.tlpsrc | 2 |
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.* |