diff options
| author | Norbert Preining <preining@logic.at> | 2011-06-01 02:13:32 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2011-06-01 02:13:32 +0000 |
| commit | eb5c077c29de8c9aafee41f3c3857df3128d675d (patch) | |
| tree | 522778582798893ed65f482c01b5251e3615f763 /Master/tlpkg/TeXLive | |
| parent | 283736b3e5d3f7112d5598324a4aa19406974c23 (diff) | |
take over paper setting from previous version if possible
git-svn-id: svn://tug.org/texlive/trunk@22712 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -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. |