summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm11
1 files 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