From 2b322517d2f5ebd65667a38d25857cf53e09010c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 15 May 2014 17:35:07 +0000 Subject: trivial perl var warnings git-svn-id: svn://tug.org/texlive/trunk@34044 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPSRC.pm | 4 ++-- Master/tlpkg/TeXLive/TLPaper.pm | 4 ++-- Master/tlpkg/TeXLive/TLWinGoo.pm | 6 +----- 3 files changed, 5 insertions(+), 9 deletions(-) (limited to 'Master/tlpkg/TeXLive') diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 9c200de0990..b83c0d541d2 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -1,13 +1,13 @@ # $Id$ # TeXLive::TLPSRC.pm - module for handling tlpsrc files -# Copyright 2007-2013 Norbert Preining +# Copyright 2007-2014 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. package TeXLive::TLPSRC; use FileHandle; -use TeXLive::TLConfig qw($CategoriesRegexp); +use TeXLive::TLConfig qw($CategoriesRegexp $DefaultCategory); use TeXLive::TLUtils; use TeXLive::TLPOBJ; use TeXLive::TLTREE; diff --git a/Master/tlpkg/TeXLive/TLPaper.pm b/Master/tlpkg/TeXLive/TLPaper.pm index e206b7de681..d2d05294405 100644 --- a/Master/tlpkg/TeXLive/TLPaper.pm +++ b/Master/tlpkg/TeXLive/TLPaper.pm @@ -1,6 +1,6 @@ # $Id$ # TeXLive::TLPaper.pm - query/modify paper sizes for our various programs -# Copyright 2008-2012 Norbert Preining +# Copyright 2008-2014 Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. # @@ -737,7 +737,7 @@ sub paper_do_simple { return; } for (@newlines) { print TMP; } - close(TMP) || warn "$0: close(>$outfile) failed: $!"; + close(TMP) || warn "$0: close(>$outp) failed: $!"; TeXLive::TLUtils::announce_execute_actions("regenerate-formats") if ($prog eq "context"); } else { diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index a922fca9c16..ccf82542717 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -336,11 +336,7 @@ from C<%ENV>. =cut -if ($is_win) { - $global_tmp = expand_string(get_system_env()->{'TEMP'}) if $is_win; -} - -my $global_tmp = "/tmp"; +my $global_tmp = $is_win ? expand_string(get_system_env()->{'TEMP'}) : "/tmp"; sub global_tmpdir { return $global_tmp; } -- cgit v1.2.3