From eb5c077c29de8c9aafee41f3c3857df3128d675d Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Wed, 1 Jun 2011 02:13:32 +0000
Subject: take over paper setting from previous version if possible

git-svn-id: svn://tug.org/texlive/trunk@22712 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLPaper.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Master/tlpkg/TeXLive')

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.
-- 
cgit v1.2.3