diff options
| author | Norbert Preining <preining@logic.at> | 2008-06-13 11:45:12 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-06-13 11:45:12 +0000 |
| commit | 3e8ef1546b7ea91ed51a68a67289850f24d0e6d5 (patch) | |
| tree | fee832b47c29c73a6b3d125d4749b471cd0faabf /Master/tlpkg/TeXLive | |
| parent | c7153fb055af25afc2dc579c2e1944d2e415783b (diff) | |
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
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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; |