diff options
author | Norbert Preining <preining@logic.at> | 2009-06-09 19:01:28 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-06-09 19:01:28 +0000 |
commit | cb518f00d6f555ef49f18b12c7c8dcb2576d2956 (patch) | |
tree | 2c042c83d3bd899f752810fb0ca48da788485671 /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | d6c1b1aca9daa4545cfd8b0a28c99f0d3ed47a4f (diff) |
update all depending formats if an engine has been updated
git-svn-id: svn://tug.org/texlive/trunk@13683 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 9e245dcf71b..b826db38e73 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -1275,6 +1275,25 @@ sub option_platform { =pod +=item C<< $tlpdb->format_definitions >> + +This function returns a list of references to hashes where each hash +represents a parsed AddFormat line. + + +=cut + +sub format_definitions { + my $self = shift; + my @ret; + foreach my $p ($self->list_packages) { + my $obj = $self->get_package ($p); + die "$0: No TeX Live package named $p, strange" if ! $obj; + push @ret, $obj->format_definitions; + } + return(@ret); +} + =item C<< $tlpdb->fmtutil_cnf_lines >> The function C<fmtutil_cnf_lines> returns the list of a fmtutil.cnf file |