summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPaper.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2011-06-01 02:13:32 +0000
committerNorbert Preining <preining@logic.at>2011-06-01 02:13:32 +0000
commiteb5c077c29de8c9aafee41f3c3857df3128d675d (patch)
tree522778582798893ed65f482c01b5251e3615f763 /Master/tlpkg/TeXLive/TLPaper.pm
parent283736b3e5d3f7112d5598324a4aa19406974c23 (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/TLPaper.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPaper.pm11
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.