summaryrefslogtreecommitdiff
path: root/Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-27 23:34:50 +0000
committerNorbert Preining <preining@logic.at>2008-10-27 23:34:50 +0000
commitb13eb40acc673c21dc8e9cbfac1fa30cea44bf07 (patch)
tree53910fbfc8941d79d3005e171a3b8228bf346815 /Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch
parent43657d775598ec10eb9176260d8b22d064fff932 (diff)
remove several patches, prefix are now
dev.XXXX in development ready.XXXX ready for inclusion 2009.XXXX patches to be included for 2009 rej.XXXX rejected patches git-svn-id: svn://tug.org/texlive/trunk@11081 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch')
-rw-r--r--Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch39
1 files changed, 39 insertions, 0 deletions
diff --git a/Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch b/Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch
new file mode 100644
index 00000000000..82008f3f3e9
--- /dev/null
+++ b/Master/tlpkg/etc/dev.tempfile-for-tlpdb.patch
@@ -0,0 +1,39 @@
+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;