From 3e8ef1546b7ea91ed51a68a67289850f24d0e6d5 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Fri, 13 Jun 2008 11:45:12 +0000
Subject: TLPDB: if some fmtutil.XX.cnf or language.XX.dat are missing, don't
 die but tlwarn

git-svn-id: svn://tug.org/texlive/trunk@8705 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLPDB.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Master/tlpkg/TeXLive')

diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 5e990d8795a..a00d8dab599 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -919,7 +919,7 @@ sub fmtutil_cnf_lines {
   push @formatlines, @tmp;
   foreach my $f (sort keys %fmtcnffiles) {
     open(INFILE,"<$self->{'root'}/texmf/fmtutil/format.$f.cnf")
-      or die("Cannot open $self->{'root'}/texmf/fmtutil/format.$f.cnf");
+      or tlwarn("Cannot open $self->{'root'}/texmf/fmtutil/format.$f.cnf\nThe generated fmtutil.cnf file might be incomplete!\nError: $!\n");
     @tmp = <INFILE>;
     close(INFILE);
     push @formatlines, @tmp;
@@ -999,7 +999,8 @@ sub language_dat_lines {
   local *INFILE;
   foreach my $f (sort keys %langfiles) {
     $INFILE = "<$self->{'root'}/texmf/tex/generic/config/language.$f.dat";
-    open (INFILE) or die "open($INFILE) failed: $!";
+    open (INFILE)
+      or tlwarn("Cannot open $self->{'root'}/texmf/tex/generic/config/language.$f.dat\nThe generated language.dat file might be incomplete!\nError: $!\n");
     @tmp = <INFILE>;
     close (INFILE);
     push @langlines, @tmp;
-- 
cgit v1.2.3