summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-04-12 17:50:54 +0000
committerKarl Berry <karl@freefriends.org>2015-04-12 17:50:54 +0000
commit476a19e38e9ef3021e99243fd1d30b51ba03e6c3 (patch)
tree973eab747090848e6b942ade7984a6f34fb3ebb1 /Master/tlpkg/TeXLive/TLUtils.pm
parenta6b03a7225a10eeaf0888a8cd4c037101476636a (diff)
(get_disabled_local_configs): don't worry if
nothing passed. git-svn-id: svn://tug.org/texlive/trunk@36801 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 5a91cd67e95..28135448246 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -2800,12 +2800,12 @@ sub get_disabled_local_configs {
my $localconf = shift;
my $cc = shift;
my @disabled = ();
- if (-r "$localconf") {
- open FOO, "<$localconf"
- or die "strange, -r ok but cannot open $localconf: $!";
+ if ($localconf && -r $localconf) {
+ open (FOO, "<$localconf")
+ || die "strange, -r ok but open($localconf) failed: $!";
my @tmp = <FOO>;
- close(FOO) || warn("Closing $localconf did not succeed: $!");
- @disabled = map { if (m/^$cc!(\S+)\s*$/) { $1 } else { }} @tmp;
+ close(FOO) || warn("close($localconf) failed: $!");
+ @disabled = map { if (m/^$cc!(\S+)\s*$/) { $1 } else { } } @tmp;
}
return @disabled;
}