diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 11 |
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 |