diff options
| author | Karl Berry <karl@freefriends.org> | 2015-04-12 17:50:54 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2015-04-12 17:50:54 +0000 |
| commit | 476a19e38e9ef3021e99243fd1d30b51ba03e6c3 (patch) | |
| tree | 973eab747090848e6b942ade7984a6f34fb3ebb1 /Master/tlpkg | |
| parent | a6b03a7225a10eeaf0888a8cd4c037101476636a (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 10 |
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; } |