diff options
6 files changed, 104 insertions, 41 deletions
diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index b5902c6ed12..fdcd482f5ba 100644 --- a/Build/source/texk/tests/TeXLive/TLUtils.pm +++ b/Build/source/texk/tests/TeXLive/TLUtils.pm @@ -5,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 29926 $'; +my $svnrev = '$Revision: 30127 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -264,7 +264,7 @@ C</.*-(.*$)/> as a last resort and hope it provides something useful. sub platform_name { my ($guessed_platform) = @_; - $guessed_platform =~ s/^x86_64-(.*-k?)freebsd/amd64-$1freebsd/; + $guessed_platform =~ s/^x86_64-(.*-k?)(free|net)bsd/amd64-$1$2bsd/; my $CPU; # CPU type as reported by config.guess. my $OS; # O/S type as reported by config.guess. ($CPU = $guessed_platform) =~ s/(.*?)-.*/$1/; @@ -327,6 +327,7 @@ sub platform_desc { 'alpha-linux' => 'DEC Alpha with GNU/Linux', 'amd64-freebsd' => 'x86_64 with FreeBSD', 'amd64-kfreebsd' => 'x86_64 with GNU/kFreeBSD', + 'amd64-netbsd' => 'x86_64 with NetBSD', 'armel-linux' => 'ARM with GNU/Linux', 'armhf-linux' => 'ARMhf with GNU/Linux', 'hppa-hpux' => 'HP-UX', @@ -970,8 +971,11 @@ sub touch { if (-e $file) { utime time, time, $file; } else { - open TMP, ">>$file" && close TMP - or warn "Can't update timestamps of $file: $!\n"; + if (open( TMP, ">$file")) { + close(TMP); + } else { + warn "Can't create file $file: $!\n"; + } } } } @@ -2493,6 +2497,8 @@ sub download_file { } else { $url = "$TeXLiveURL/$relpath"; } + + my $wget_retry = 0; if (defined($::tldownload_server) && $::tldownload_server->enabled) { debug("persistent connection set up, trying to get $url (for $dest)\n"); $ret = $::tldownload_server->get_file($url, $dest); @@ -2500,8 +2506,10 @@ sub download_file { debug("downloading file via persistent connection succeeded\n"); return $ret; } else { - tlwarn("tlmgr: persistent connection ok, but download failed: $url\n"); - tlwarn("tlmgr: retrying with wget.\n"); + tlwarn("TLUtils::download_file: persistent connection ok," + . " but download failed: $url\n"); + tlwarn("TLUtils::download_file: retrying with wget.\n"); + $wget_retry = 1; # just so we can give another msg. } } else { if (!defined($::tldownload_server)) { @@ -2511,7 +2519,15 @@ sub download_file { } debug("persistent connection not set up, using wget\n"); } + + # try again. my $ret = _download_file($url, $dest, $wget); + + if ($wget_retry) { + tlwarn("TLUtils::download_file: retry with wget " + . ($ret ? "succeeded" : "failed") . ": $url\n"); + } + return($ret); } diff --git a/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries b/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries index 3d053fc9553..07ce68bd8d1 100755 --- a/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries +++ b/Build/source/texk/texlive/linked_scripts/glossaries/makeglossaries @@ -2,7 +2,7 @@ # File : makeglossaries # Author : Nicola Talbot -# Version : 2.04 (2011/06/21) +# Version : 2.06 (2013/04/21) # Description: simple Perl script that calls makeindex or xindy. # Intended for use with "glossaries.sty" (saves having to remember # all the various switches) @@ -27,9 +27,11 @@ # glossary-super.sty, glossaries.perl. # Also makeglossaries and makeglossaries. -my $version="2.05 (2012-11-12)"; +my $version="2.06 (2013-04-21)"; # History: +# v2.06 (2013-04-21): +# * added "din5007" as default if language is set to "german" # v2.05 (2012-11-12): # * added -d option # v2.04 (2012-04-19): @@ -677,6 +679,12 @@ sub xindy{ elsif ($language=~/^n?germanb?$/) { $language = "german"; + + # v2.06 added: + if ($codepage and not $codepage=~/(din|duden)/) + { + $codepage = "din5007-$codepage"; + } } elsif ($language eq "magyar") { diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl index bc455ee0d9d..2c7520d56c9 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl @@ -1,12 +1,12 @@ #!/usr/bin/env perl -# $Id: tlmgr.pl 30095 2013-04-24 23:05:08Z karl $ +# $Id: tlmgr.pl 30121 2013-04-26 06:51:26Z preining $ # # Copyright 2008-2013 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. -my $svnrev = '$Revision: 30095 $'; -my $datrev = '$Date: 2013-04-25 01:05:08 +0200 (Thu, 25 Apr 2013) $'; +my $svnrev = '$Revision: 30121 $'; +my $datrev = '$Date: 2013-04-26 08:51:26 +0200 (Fri, 26 Apr 2013) $'; my $tlmgrrevision; my $prg; if ($svnrev =~ m/: ([0-9]+) /) { @@ -2291,7 +2291,7 @@ sub machine_line { $ret = 1; shift; } - my ($pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag) = @_; + my ($pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv) = @_; $lrev ||= "-"; $rrev ||= "-"; $flag ||= "?"; @@ -2299,7 +2299,9 @@ sub machine_line { $runtime ||= "-"; $esttot ||= "-"; $tag ||= "-"; - my $str = join("\t", $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag); + $lcv ||= "-"; + $rcv ||= "-"; + my $str = join("\t", $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv); $str .= "\n"; return($str) if $ret; print $str; @@ -2550,7 +2552,8 @@ sub action_update { if ($::machinereadable) { # TODO should we add a revision number push @addlines, - machine_line("-ret", $pkg, $FLAG_FORCIBLE_REMOVED, "-", "-", "-"); + # $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv + machine_line("-ret", $pkg, $FLAG_FORCIBLE_REMOVED); } else { info("skipping forcibly removed package $pkg\n"); } @@ -2580,6 +2583,7 @@ sub action_update { next; } my $rev = $tlp->revision; + my $lctanvers = $tlp->cataloguedata->{'version'}; my $mediatlp; my $maxtag; if ($remotetlpdb->is_virtual) { @@ -2592,19 +2596,24 @@ sub action_update { debug("$pkg cannot be found in $location\n"); next; } + my $rctanvers = $mediatlp->cataloguedata->{'version'}; my $mediarev = $mediatlp->revision; my $mediarevstr = $mediarev; my @addargs = (); if ($remotetlpdb->is_virtual) { push @addargs, $maxtag; $mediarevstr .= "\@$maxtag"; + } else { + push @addargs, undef; } + push @addargs, $lctanvers, $rctanvers; if ($rev < $mediarev) { $updated{$pkg} = 0; # will be changed to one on successful update } elsif ($rev > $mediarev) { if ($::machinereadable) { + # $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv push @addlines, - machine_line("-ret", $pkg, $FLAG_REVERSED_UPDATE, $rev, $mediarev, "-", @addargs); + machine_line("-ret", $pkg, $FLAG_REVERSED_UPDATE, $rev, $mediarev, "-", "-", "-", @addargs); } else { if ($opts{"list"}) { # not issueing anything if we keep a package @@ -2738,9 +2747,11 @@ sub action_update { next; } my $rev = $pkg->revision; + my $lctanvers = $pkg->cataloguedata->{'version'}; if ($opts{"list"}) { if ($::machinereadable) { - machine_line($p, $FLAG_REMOVE, $rev, "-", "-", "-"); + # $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv + machine_line($p, $FLAG_REMOVE, $rev, "-", "-", "-", "-", "-", $lctanvers); } else { upd_info($p, -1, $rev, "<absent>", "autorm"); } @@ -2752,7 +2763,8 @@ sub action_update { # we have to check in addition that # - $opts{"dry-run"} is not set if ($::machinereadable) { - machine_line($p, $FLAG_REMOVE, $rev, "-", "-", "-"); + # $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv + machine_line($p, $FLAG_REMOVE, $rev, "-", "-", "-", "-", "-", $lctanvers); } else { info("[" . sprintf ('%*2$s', $currnr, $totalnrdigits) . "/$totalnr] auto-remove: $p ... "); @@ -2865,6 +2877,7 @@ sub action_update { my $unwind_package; my $remove_unwind_container = 0; my $rev = $tlp->revision; + my $lctanvers = $tlp->cataloguedata->{'version'}; my $mediatlp; my $maxtag; if ($remotetlpdb->is_virtual) { @@ -2877,16 +2890,21 @@ sub action_update { debug("$pkg cannot be found in $location\n"); next; } + my $rctanvers = $mediatlp->cataloguedata->{'version'}; my $mediarev = $mediatlp->revision; my $mediarevstr = $mediarev; my @addargs = (); if ($remotetlpdb->is_virtual) { push @addargs, $maxtag; $mediarevstr .= "\@$maxtag"; + } else { + push @addargs, undef; } + push @addargs, $lctanvers, $rctanvers; $nrupdated++; if ($opts{"list"}) { if ($::machinereadable) { + # $pkg, $flag, $lrev, $rrev, $size, $runtime, $esttot, $tag, $lcv, $rcv machine_line($pkg, $FLAG_UPDATE, $rev, $mediarev, $sizes{$pkg}, "-", "-", @addargs); } else { my $kb = int($sizes{$pkg} / 1024) + 1; @@ -3420,6 +3438,7 @@ sub action_install { my $flag = $FLAG_INSTALL; my $re = ""; my $tlp = $remotetlpdb->get_package($pkg); + my $rctanvers = $tlp->cataloguedata->{'version'}; if (!defined($tlp)) { info("Unknown package $pkg\n"); next; @@ -3428,7 +3447,9 @@ sub action_install { info("Package $pkg is not relocatable, cannot install it in user mode!\n"); next; } + my $lctanvers; if (defined($localtlpdb->get_package($pkg))) { + my $lctanvers = $localtlpdb->get_package($pkg)->cataloguedata->{'version'}; if ($opts{"reinstall"}) { $re = "re"; $flag = $FLAG_REINSTALL; @@ -3452,6 +3473,7 @@ sub action_install { $tagstr = " \@" . $maxtag; } } + push @addargs, $lctanvers, $rctanvers; if ($::machinereadable) { machine_line($pkg, $flag, "-", $revs{$pkg}, $sizes{$pkg}, $estrem, $esttot, @addargs); } else { diff --git a/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl b/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl index abf4e4b085a..4444a177f2a 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/updmap.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: updmap.pl 30043 2013-04-19 19:47:12Z preining $ +# $Id: updmap.pl 30150 2013-04-28 23:33:28Z karl $ # updmap - maintain map files for outline fonts. # (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.) # @@ -34,7 +34,7 @@ BEGIN { } -my $version = '$Id: updmap.pl 30043 2013-04-19 19:47:12Z preining $'; +my $version = '$Id: updmap.pl 30150 2013-04-28 23:33:28Z karl $'; use Getopt::Long qw(:config no_autoabbrev ignore_case_always); use strict; @@ -343,6 +343,9 @@ sub main { $bakFile =~ s/\.cfg$/.bak/; my $changed = 0; + $updLSR = &mktexupd(); + $updLSR->{mustexist}(0); + if ($opts{'syncwithtrees'}) { merge_settings_replace_kanji(); my @missing = read_map_files(); @@ -370,9 +373,6 @@ sub main { exit 0; } - $updLSR = &mktexupd(); - $updLSR->{mustexist}(0); - my $cmd; if ($opts{'edit'}) { if ($opts{"dry-run"}) { diff --git a/Build/source/texk/texlive/tl_scripts/fmtutil.cnf b/Build/source/texk/texlive/tl_scripts/fmtutil.cnf index 8e1ab82149f..e6dab71afee 100644 --- a/Build/source/texk/texlive/tl_scripts/fmtutil.cnf +++ b/Build/source/texk/texlive/tl_scripts/fmtutil.cnf @@ -1,5 +1,4 @@ -# Generated by /home/texlive/karl/Master/bin/i386-linux/tlmgr on Mon May 14 04:46:13 2012 -# $Id: fmtutil-hdr.cnf 13067 2009-05-12 22:04:17Z preining $ +# Generated by /home/texlive/karl/Master/bin/i386-linux/tlmgr on Mon Apr 8 21:17:02 2013 # Originally written by Thomas Esser, 1998. Public domain. # # As of TeX Live 2008, the final fmtutil.cnf is generated by @@ -43,21 +42,23 @@ lamed aleph language.dat *lambda.ini amstex pdftex - -translate-file=cp227.tcx *amstex.ini # # from context: -cont-en pdftex cont-usr.tex -8bit *cont-en.ini -cont-en xetex cont-usr.tex -8bit *cont-en.ini -#! cont-de pdftex cont-usr.tex -8bit *cont-de.ini -#! cont-fr pdftex cont-usr.tex -8bit *cont-fr.ini -#! cont-it pdftex cont-usr.tex -8bit *cont-it.ini -#! cont-nl pdftex cont-usr.tex -8bit *cont-nl.ini -#! cont-ro pdftex cont-usr.tex -8bit *cont-ro.ini +cont-en pdftex cont-usr.tex -8bit *cont-en.mkii +cont-en xetex cont-usr.tex -8bit *cont-en.mkii +#! cont-de pdftex cont-usr.tex -8bit *cont-de.mkii +#! cont-fr pdftex cont-usr.tex -8bit *cont-fr.mkii +#! cont-it pdftex cont-usr.tex -8bit *cont-it.mkii +#! cont-nl pdftex cont-usr.tex -8bit *cont-nl.mkii +#! cont-ro pdftex cont-usr.tex -8bit *cont-ro.mkii # # from cslatex: -cslatex pdftex - -etex -translate-file=cp227.tcx cslatex.ini -pdfcslatex pdftex - -etex -translate-file=cp227.tcx cslatex.ini +cslatex pdftex - -etex cslatex.ini +pdfcslatex pdftex - -etex cslatex.ini # # from csplain: -csplain pdftex - -etex -translate-file=cp227.tcx csplain.ini -pdfcsplain pdftex - -etex -translate-file=cp227.tcx csplain.ini +csplain pdftex - -etex -enc csplain-utf8.ini +pdfcsplain pdftex - -etex -enc csplain-utf8.ini +#! pdfcsplain xetex - -etex csplain.ini +#! pdfcsplain luatex - -etex csplain.ini # # from eplain: eplain pdftex language.dat -translate-file=cp227.tcx *eplain.ini diff --git a/Build/source/utils/biber/TeXLive/TLUtils.pm b/Build/source/utils/biber/TeXLive/TLUtils.pm index b5902c6ed12..fdcd482f5ba 100644 --- a/Build/source/utils/biber/TeXLive/TLUtils.pm +++ b/Build/source/utils/biber/TeXLive/TLUtils.pm @@ -5,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 29926 $'; +my $svnrev = '$Revision: 30127 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -264,7 +264,7 @@ C</.*-(.*$)/> as a last resort and hope it provides something useful. sub platform_name { my ($guessed_platform) = @_; - $guessed_platform =~ s/^x86_64-(.*-k?)freebsd/amd64-$1freebsd/; + $guessed_platform =~ s/^x86_64-(.*-k?)(free|net)bsd/amd64-$1$2bsd/; my $CPU; # CPU type as reported by config.guess. my $OS; # O/S type as reported by config.guess. ($CPU = $guessed_platform) =~ s/(.*?)-.*/$1/; @@ -327,6 +327,7 @@ sub platform_desc { 'alpha-linux' => 'DEC Alpha with GNU/Linux', 'amd64-freebsd' => 'x86_64 with FreeBSD', 'amd64-kfreebsd' => 'x86_64 with GNU/kFreeBSD', + 'amd64-netbsd' => 'x86_64 with NetBSD', 'armel-linux' => 'ARM with GNU/Linux', 'armhf-linux' => 'ARMhf with GNU/Linux', 'hppa-hpux' => 'HP-UX', @@ -970,8 +971,11 @@ sub touch { if (-e $file) { utime time, time, $file; } else { - open TMP, ">>$file" && close TMP - or warn "Can't update timestamps of $file: $!\n"; + if (open( TMP, ">$file")) { + close(TMP); + } else { + warn "Can't create file $file: $!\n"; + } } } } @@ -2493,6 +2497,8 @@ sub download_file { } else { $url = "$TeXLiveURL/$relpath"; } + + my $wget_retry = 0; if (defined($::tldownload_server) && $::tldownload_server->enabled) { debug("persistent connection set up, trying to get $url (for $dest)\n"); $ret = $::tldownload_server->get_file($url, $dest); @@ -2500,8 +2506,10 @@ sub download_file { debug("downloading file via persistent connection succeeded\n"); return $ret; } else { - tlwarn("tlmgr: persistent connection ok, but download failed: $url\n"); - tlwarn("tlmgr: retrying with wget.\n"); + tlwarn("TLUtils::download_file: persistent connection ok," + . " but download failed: $url\n"); + tlwarn("TLUtils::download_file: retrying with wget.\n"); + $wget_retry = 1; # just so we can give another msg. } } else { if (!defined($::tldownload_server)) { @@ -2511,7 +2519,15 @@ sub download_file { } debug("persistent connection not set up, using wget\n"); } + + # try again. my $ret = _download_file($url, $dest, $wget); + + if ($wget_retry) { + tlwarn("TLUtils::download_file: retry with wget " + . ($ret ? "succeeded" : "failed") . ": $url\n"); + } + return($ret); } |