diff options
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 3 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
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; |