diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLConfig.pm | 3 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
2 files changed, 5 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm index 2b980b2034a..0435ce7113c 100644 --- a/Master/tlpkg/TeXLive/TLConfig.pm +++ b/Master/tlpkg/TeXLive/TLConfig.pm @@ -59,9 +59,6 @@ $ReleaseYear = 2016; # Generally not tested. $MinRelease = 2016; -# users can NOT upgrade due to internal changes, force a full installation -#$MinRelease = $ReleaseYear; - # Meta Categories do not ship files, but only call for other packages. our @MetaCategories = qw/Collection Scheme/; our $MetaCategoriesRegexp = '(Collection|Scheme)'; 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 = <INFILE>; 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) { |