From a6e64f22f311495dbb47dae3c3dd72a89d329891 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 25 Aug 2009 11:46:03 +0000 Subject: reorder so that temp files can be removed git-svn-id: svn://tug.org/texlive/trunk@14856 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive/TLPDB.pm') 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); } -- cgit v1.2.3