From ce4b1c2e116b95a4848520bd47a975586eabba3a Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 14 May 2011 00:50:59 +0000 Subject: included in trunk git-svn-id: svn://tug.org/texlive/trunk@22470 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch | 39 --------------------------- 1 file changed, 39 deletions(-) delete mode 100644 Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch diff --git a/Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch b/Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch deleted file mode 100644 index 82008f3f3e9..00000000000 --- a/Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch +++ /dev/null @@ -1,39 +0,0 @@ -Index: TeXLive/TLPDB.pm -=================================================================== ---- TeXLive/TLPDB.pm (revision 10575) -+++ TeXLive/TLPDB.pm (working copy) -@@ -60,6 +60,9 @@ - use TeXLive::TLUtils qw(dirname mkdirhier member win32 info debug ddebug tlwarn); - use TeXLive::TLPOBJ; - -+use File::Temp qw/tempfile/; -+ -+ - my $_listdir; - - =pod -@@ -211,13 +214,20 @@ - # if we have lzmadec available we try the lzma file - if (defined($::progs{'lzmadec'})) { - # we first try the lzma compressed file -- my $tmpdir = TeXLive::TLUtils::get_system_tmpdir(); -- my $bn = TeXLive::TLUtils::basename("$path"); -- my $lzmafile = "$tmpdir/$bn.lzma"; -+ # -+ # we have to create a temp file to download to -+ my ($lzmafh, $lzmafile) = tempfile(); -+ # now $lzmafh filehandle is open, the file created -+ # TLUtils::download_file will just overwrite what is there -+ # on windows that doesn't work, so we close the fh immediately -+ # is this secure??? -+ close($lzmafh); - my $lzmafile_quote = $lzmafile; - # this is a variable of the whole sub as we have to remove the file - # before returning -- $tlpdbfile = "$tmpdir/$bn"; -+ my $tlpdbfh; -+ ($tlpdbfh, $tlpdbfile) = tempfile(); -+ close($tlpdbfh); - my $tlpdbfile_quote = $tlpdbfile; - if (win32()) { - $lzmafile =~ s!/!\\!g; -- cgit v1.2.3