diff options
author | Norbert Preining <preining@logic.at> | 2009-09-15 09:40:04 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-09-15 09:40:04 +0000 |
commit | 60d44731afa4954a7324f3bbe3e111598874afd2 (patch) | |
tree | b44918fd5babb878b576cdf2a688af6542fcf7e8 /Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch | |
parent | 568f2a84fedd5654cc87f3408d72bd32b4363df3 (diff) |
move howto-translations to doc, and rename etc to dev in tlpkg
git-svn-id: svn://tug.org/texlive/trunk@15293 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch')
-rw-r--r-- | Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch b/Master/tlpkg/dev/dev.tempfile-for-tlpdb.patch new file mode 100644 index 00000000000..82008f3f3e9 --- /dev/null +++ b/Master/tlpkg/dev/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; |