summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-05-15 17:35:07 +0000
committerKarl Berry <karl@freefriends.org>2014-05-15 17:35:07 +0000
commit2b322517d2f5ebd65667a38d25857cf53e09010c (patch)
treeed6279f633e2cd0f45899eaf080470c97c4db5ab /Master
parent3a6264f044b1f183cbafb10cf9c87d4cd27c89ec (diff)
trivial perl var warnings
git-svn-id: svn://tug.org/texlive/trunk@34044 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm4
-rw-r--r--Master/tlpkg/TeXLive/TLPaper.pm4
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm6
3 files changed, 5 insertions, 9 deletions
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; }