diff options
| -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; } |