summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2015-11-28 02:15:27 +0000
committerNorbert Preining <preining@logic.at>2015-11-28 02:15:27 +0000
commit87123a2ef9f151450743de8d760aadd34d561aca (patch)
treea333e6854a6260165511bf5b92596d37b85a9c43 /Master/tlpkg/TeXLive
parent6df403164087c0daf0b084fd3b0633d320226208 (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')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm7
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;