summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm3
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm4
2 files changed, 7 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 75fc38c6605..b13e1655594 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -1106,6 +1106,9 @@ sub _parse_hyphen_execute {
push @langlines, "$cc from $pkg:\n";
$first = 0;
}
+ if ($r{"comment"}) {
+ push @langlines, "$cc $r{comment}\n";
+ }
my @foo = &$coderef ($r{"name"}, $r{"lefthyphenmin"},
$r{"righthyphenmin"}, $r{"file"}, $r{"synonyms"},
$r{"file_patterns"}, $r{"file_exceptions"},
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 89fbceba39b..6c63a8da3c8 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -2605,6 +2605,10 @@ sub parse_AddHyphen_line {
@{$ret{"synonyms"}} = split /,/, $b;
next;
}
+ if ($a eq "comment") {
+ $ret{"comment"} = $b;
+ next;
+ }
# should not be reached at all
$ret{"error"} = "Unknown language directive $e";
return %ret;