From f51b9eece29763e976f693b98b6c267399235262 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 5 May 2015 22:32:32 +0000 Subject: sync git-svn-id: svn://tug.org/texlive/trunk@37215 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/build-aux/missing | 2 +- Build/source/build-aux/ylwrap | 2 +- Build/source/texk/tests/TeXLive/TLUtils.pm | 27 +++++++++++----------- .../texk/texlive/linked_scripts/texlive/fmtutil.pl | 11 +++++---- Build/source/texk/texlive/tl_scripts/fmtutil.cnf | 13 ++++++----- 5 files changed, 28 insertions(+), 27 deletions(-) (limited to 'Build') diff --git a/Build/source/build-aux/missing b/Build/source/build-aux/missing index db98974ff5d..f62bbae306c 100755 --- a/Build/source/build-aux/missing +++ b/Build/source/build-aux/missing @@ -3,7 +3,7 @@ scriptversion=2013-10-28.13; # UTC -# Copyright (C) 1996-2013 Free Software Foundation, Inc. +# Copyright (C) 1996-2014 Free Software Foundation, Inc. # Originally written by Fran,cois Pinard , 1996. # This program is free software; you can redistribute it and/or modify diff --git a/Build/source/build-aux/ylwrap b/Build/source/build-aux/ylwrap index 8f072a8e97c..7c2d927f7f6 100755 --- a/Build/source/build-aux/ylwrap +++ b/Build/source/build-aux/ylwrap @@ -3,7 +3,7 @@ scriptversion=2013-01-12.17; # UTC -# Copyright (C) 1996-2013 Free Software Foundation, Inc. +# Copyright (C) 1996-2014 Free Software Foundation, Inc. # # Written by Tom Tromey . # diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index 7b116558671..8763d3dbf6a 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: 36787 $'; +my $svnrev = '$Revision: 36818 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -69,8 +69,8 @@ C -- utilities used in the TeX Live infrastructure TeXLive::TLUtils::make_var_skeleton($path); TeXLive::TLUtils::make_local_skeleton($path); - TeXLive::TLUtils::create_fmtutil($tlpdb,$dest,$localconf); - TeXLive::TLUtils::create_updmap($tlpdb,$dest,$localconf); + TeXLive::TLUtils::create_fmtutil($tlpdb,$dest); + TeXLive::TLUtils::create_updmap($tlpdb,$dest); TeXLive::TLUtils::create_language_dat($tlpdb,$dest,$localconf); TeXLive::TLUtils::create_language_def($tlpdb,$dest,$localconf); TeXLive::TLUtils::create_language_lua($tlpdb,$dest,$localconf); @@ -2763,9 +2763,9 @@ sub make_local_skeleton { } -=item C +=item C -=item C +=item C =item C @@ -2799,22 +2799,21 @@ sub get_disabled_local_configs { my $localconf = shift; my $cc = shift; my @disabled = (); - if (-r "$localconf") { - open FOO, "<$localconf" - or die "strange, -r ok but cannot open $localconf: $!"; + if ($localconf && -r $localconf) { + open (FOO, "<$localconf") + || die "strange, -r ok but open($localconf) failed: $!"; my @tmp = ; - close(FOO) || warn("Closing $localconf did not succeed: $!"); - @disabled = map { if (m/^$cc!(\S+)\s*$/) { $1 } else { }} @tmp; + close(FOO) || warn("close($localconf) failed: $!"); + @disabled = map { if (m/^$cc!(\S+)\s*$/) { $1 } else { } } @tmp; } return @disabled; } sub create_fmtutil { - my ($tlpdb,$dest,$localconf) = @_; - my @lines = $tlpdb->fmtutil_cnf_lines( - get_disabled_local_configs($localconf, '#')); + my ($tlpdb,$dest) = @_; + my @lines = $tlpdb->fmtutil_cnf_lines(); _create_config_files($tlpdb, "texmf-dist/web2c/fmtutil-hdr.cnf", $dest, - $localconf, 0, '#', \@lines); + undef, 0, '#', \@lines); } sub create_updmap { diff --git a/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl b/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl index 9c47fcaf283..0ef264c2ac7 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: fmtutil.pl 37175 2015-05-04 02:00:42Z preining $ +# $Id: fmtutil.pl 37190 2015-05-04 23:36:23Z karl $ # fmtutil - utility to maintain format files. # (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.) # @@ -26,11 +26,11 @@ BEGIN { } -my $svnid = '$Id: fmtutil.pl 37175 2015-05-04 02:00:42Z preining $'; -my $lastchdate = '$Date: 2015-05-04 04:00:42 +0200 (Mon, 04 May 2015) $'; +my $svnid = '$Id: fmtutil.pl 37190 2015-05-04 23:36:23Z karl $'; +my $lastchdate = '$Date: 2015-05-05 01:36:23 +0200 (Tue, 05 May 2015) $'; $lastchdate =~ s/^\$Date:\s*//; $lastchdate =~ s/ \(.*$//; -my $svnrev = '$Revision: 37175 $'; +my $svnrev = '$Revision: 37190 $'; $svnrev =~ s/^\$Revision:\s*//; $svnrev =~ s/\s*\$$//; my $version = "r$svnrev ($lastchdate)"; @@ -756,7 +756,8 @@ sub read_fmtutil_file { next if /^\s*#?\s*$/; # ignore empty and all-blank and just-# lines next if /^\s*#[^!]/; # ignore whole-line comment that is not a disable s/#[^!].*//; # remove within-line comment that is not a disable - my ($a, $b, $c, @rest) = split ' '; # special split rule, leading ws ign + s/#$//; # remove # at end of line + my ($a,$b,$c,@rest) = split (' '); # special split rule, leading ws ign my $disabled = 0; if ($a eq "#!") { # we cannot determine whether a line is a proper fmtline or diff --git a/Build/source/texk/texlive/tl_scripts/fmtutil.cnf b/Build/source/texk/texlive/tl_scripts/fmtutil.cnf index c565b3ac275..d2bd6daf3ad 100644 --- a/Build/source/texk/texlive/tl_scripts/fmtutil.cnf +++ b/Build/source/texk/texlive/tl_scripts/fmtutil.cnf @@ -1,11 +1,12 @@ -# Generated by /home/texlive/karl/Master/bin/i386-linux/tlmgr on Fri Apr 25 03:23:27 2014 -# $Id: fmtutil-hdr.cnf 30214 2013-05-02 22:31:16Z karl $ +# Generated by /home/texlive/karl/Master/bin/i386-linux/tlmgr on Tue May 5 03:20:22 2015 # Originally written by Thomas Esser, 1998. Public domain. # -# As of TeX Live 2008, the final fmtutil.cnf is generated by -# tlmgr generate fmtutil. You can use -# tlmgr generate fmtutil -localcfg /some/file to make local additions. -# See tlmgr --help for more info. +# As of TeX Live 2015, fmtutil reads *all* fmtutil.cnf files found. +# Consequently, any manual edits of this file (fmtutil.cnf in the +# TEXMFDIST tree) will be lost on update. So don't do that. +# +# For guidance on how to achieve local configurations, see the man +# page of fmtutil, or the output of fmtutil --help. # # The format of the table is: # -- cgit v1.2.3