texlive[41619] Master/tlpkg/TeXLive/TLPSRC.pm: (make_tlpobj): convert
commits+karl at tug.org
commits+karl at tug.org
Mon Jul 4 01:33:41 CEST 2016
Revision: 41619
http://tug.org/svn/texlive?view=revision&revision=41619
Author: karl
Date: 2016-07-04 01:33:41 +0200 (Mon, 04 Jul 2016)
Log Message:
-----------
(make_tlpobj): convert each fmttrigger package to
a depend line, since they are clearly dependencies.
Modified Paths:
--------------
trunk/Master/tlpkg/TeXLive/TLPSRC.pm
Modified: trunk/Master/tlpkg/TeXLive/TLPSRC.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPSRC.pm 2016-07-03 23:33:11 UTC (rev 41618)
+++ trunk/Master/tlpkg/TeXLive/TLPSRC.pm 2016-07-03 23:33:41 UTC (rev 41619)
@@ -262,6 +262,24 @@
$tlp->postactions(@{$self->{'postactions'}}) if (defined($self->{'postactions'}));
$tlp->depends(@{$self->{'depends'}}) if (defined($self->{'depends'}));
$tlp->revision(0);
+
+ # convert each fmttrigger to a depend line, if not already present.
+ if (defined($tlp->executes)) { # else no fmttriggers
+ my @deps = (defined($tlp->depends) ? $tlp->depends : ());
+ for my $e ($tlp->executes) {
+ # we only check for AddFormat lines
+ if ($e =~ m/^\s*AddFormat\s+(.*)\s*$/) {
+ my %fmtline = TeXLive::TLUtils::parse_AddFormat_line($1);
+ if (defined($fmtline{"error"})) {
+ tlwarn ("error in parsing $e for return hash: $fmtline{error}\n");
+ } else {
+ TeXLive::TLUtils::push_uniq (\@deps, @{$fmtline{'fmttriggers'}});
+ $tlp->depends(@deps);
+ }
+ }
+ }
+ }
+
my $filemax;
my $usedefault;
my @allpospats;
More information about the tex-live-commits
mailing list