diff options
author | Norbert Preining <preining@logic.at> | 2009-08-25 11:46:03 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-08-25 11:46:03 +0000 |
commit | a6e64f22f311495dbb47dae3c3dd72a89d329891 (patch) | |
tree | 638c9eeb49ab91ae565e2b1344a127269083a5be /Master/tlpkg/TeXLive/TLPDB.pm | |
parent | f8bb7bf00ab4d0657f321d42185e32109d44cd5d (diff) |
reorder so that temp files can be removed
git-svn-id: svn://tug.org/texlive/trunk@14856 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index b0235fd29c8..e2d4dbf516b 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -294,8 +294,8 @@ sub from_file { tlwarn("unusable location $path, could not load any packages\n") if (!$found); # remove the un-xz-ed tlpdb file from temp dir # THAT IS RACY!!! we should fix that in some better way with tempfile - unlink($tlpdbfile) if $tlpdbfile; close($retfh); + unlink($tlpdbfile) if $tlpdbfile; return($found); } |