From 6737a5115a3e6b41f7fb21196e3bc9dbfaa09b8f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 4 Jul 2008 14:36:10 +0000 Subject: TLPDB.pm: die if no package can be read from tlpdb file git-svn-id: svn://tug.org/texlive/trunk@9237 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index cb1298921b2..7296e9dc33d 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -241,14 +241,19 @@ sub from_file { $retfh = \*TMP; } my $found = 0; + my $ret = 0; do { my $tlp = TeXLive::TLPOBJ->new; ddebug("creating tlp from $path...\n"); - $found = $tlp->from_fh($retfh,1); - if ($found) { + $ret = $tlp->from_fh($retfh,1); + if ($ret) { $self->add_tlpobj($tlp); + $found++; } - } until (!$found); + } until (!$ret); + if (!$found) { + die("Cannot read any package from $path, seems not to be a TLPDB!"); + } } =pod -- cgit v1.2.3