diff options
author | Norbert Preining <preining@logic.at> | 2015-11-28 02:15:27 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2015-11-28 02:15:27 +0000 |
commit | 87123a2ef9f151450743de8d760aadd34d561aca (patch) | |
tree | a333e6854a6260165511bf5b92596d37b85a9c43 /Master/tlpkg/TeXLive/TLUtils.pm | |
parent | 6df403164087c0daf0b084fd3b0633d320226208 (diff) |
allow for trigger=... in a format specification
git-svn-id: svn://tug.org/texlive/trunk@38964 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index af276fbaebc..535dacf71e6 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3071,7 +3071,7 @@ sub parse_AddFormat_line { $ret{"mode"} = 1; for my $p (quotewords('\s+', 0, "$line")) { my ($a, $b); - if ($p =~ m/^(name|engine|mode|patterns|options)=(.*)$/) { + if ($p =~ m/^(name|engine|mode|patterns|options|triggers)=(.*)$/) { $a = $1; $b = $2; } else { @@ -3106,6 +3106,11 @@ sub parse_AddFormat_line { $ret{"options"} = ( $b ? $b : "" ); next; } + if ($a eq "triggers") { + my @tl = split(',',$b); + $ret{"triggers"} = \@tl ; + next; + } # should not be reached at all $ret{"error"} = "Unknown format directive $p"; return %ret; |