diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPaper.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPaper.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index 080b191622a..907762e9ffb 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -146,6 +146,17 @@ sub get_paper_list { return ( &{$paper_sub{$prog}} ( "/dummy", "--returnlist" ) ); } +=item C<get_paper($prog)> + +Returns the currently selected paper size for program C<$prog>. + +=cut + +sub get_paper { + my @pps = get_paper_list(shift); + return $pps[0]; +} + =item C<do_paper($prog,$texmfsysconfig,@args)> Call the paper subroutine for C<$prog>, passing args. |