From cb42f7dd530ef6ee8b5f84819df7c730a7a99caa Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 13 Jun 2016 17:52:03 +0000 Subject: doc, sync, msgs git-svn-id: svn://tug.org/texlive/trunk@41437 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLUtils.pm') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 4b3ea16117d..fa4d1abbf5e 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2756,14 +2756,15 @@ sub _create_config_files { my @lines = (); my $usermode = $tlpdb->setting( "usertree" ); if (-r "$root/$headfile") { - # we might be in user mode and do *not* want that the generation - # of the configuration file just boils out. open (INFILE, "<$root/$headfile") || die "open($root/$headfile) failed, but -r ok: $!"; @lines = ; close (INFILE); - } else { - die ("Giving up.") if (!$usermode); + } elsif (!$usermode) { + # we might be in user mode and then do *not* want the generation + # of the configuration file to just bail out. + tldie ("TLUtils::_create_config_files: giving up, unreadable: " + . "$root/$headfile\n") } push @lines, @$tlpdblinesref; if (defined($localconf) && -r $localconf) { -- cgit v1.2.3