[texlive-nonbin] 06/08: fix tl-paper for new perl modules

[Norbert Preining <preining@moszumanska.debian.org>]

This is an automated email from the git hooks/post-receive script.

preining pushed a commit to branch master
in repository texlive-nonbin.

commit e3d207ba3d404c1ed19ac89ead60fef2feb4f32b
Author: Norbert Preining <preining@debian.org>
Date:   Thu Jun 25 16:16:08 2015 +0900

    fix tl-paper for new perl modules
---
 texlive-base/debian/tl-paper | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/texlive-base/debian/tl-paper b/texlive-base/debian/tl-paper
index 834500d..d3205ca 100644
--- a/texlive-base/debian/tl-paper
+++ b/texlive-base/debian/tl-paper
@@ -5,7 +5,7 @@
 # query and change paper settings using TLPaper
 # this is independent from tlmgr
 #
-# Copyright 2011-2014 Norbert Preining
+# Copyright 2011-2015 Norbert Preining
 # This file is licensed under the GNU General Public License version 3
 # or any later version.
 #
@@ -57,7 +57,8 @@ sub main {
     }
     # the following actually also *reads* the configuration and returns
     # a list where the first item is the one selected.
-    my ($current_paper, @other_options) = TeXLive::TLPaper::get_paper_list($prg);
+    my $paperref = TeXLive::TLPaper::get_paper_list($prg);
+    my ($current_paper, @other_options) = @{$paperref};
     for my $i ($current_paper, sort @other_options) {
       print "$i\n";
     }
@@ -107,7 +108,8 @@ sub main {
       usage();
       exit 1;
     }
-    my ($current_paper, @other_options) = TeXLive::TLPaper::get_paper_list($prg);
+    my $paperref = TeXLive::TLPaper::get_paper_list($prg);
+    my ($current_paper, @other_options) = @{$paperref};
     print "$current_paper\n" if defined($current_paper);
     
   } else {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-tex/texlive-nonbin.git