<pre style='margin:0'>
Rainer Müller (raimue) pushed a commit to branch vcs-fetch
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/88465205c4bc1ea0b9d8af0df1d581defbbe9296">https://github.com/macports/macports-base/commit/88465205c4bc1ea0b9d8af0df1d581defbbe9296</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 88465205c4bc1ea0b9d8af0df1d581defbbe9296
</span>Author: Rainer Müller <raimue@macports.org>
AuthorDate: Fri Mar 16 01:54:51 2018 +0100
<span style='display:block; white-space:pre;color:#404040;'> fetch: Cleanup temporary files on failure
</span>---
src/port1.0/portfetch.tcl | 3 +++
1 file changed, 3 insertions(+)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portfetch.tcl b/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 696ac71..d3455f4 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portfetch.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -533,6 +533,7 @@ proc portfetch::svnfetch {args} {
</span> # get timestamp of latest revision
set cmdstring "${svn.cmd} info --show-item last-changed-date ${svn.args} ${proxy_args} ${svn.url} 2>&1"
if {[catch {exec -ignorestderr sh -c $cmdstring} result]} {
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ delete ${tmppath}
</span> return -code error [msgcat::mc "Subversion info failed"]
}
set tstamp $result
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -671,6 +672,7 @@ proc portfetch::gitfetch {args} {
</span> set cmdstring "${git.cmd} archive --format=tar --prefix=\"${git.file_prefix}/\" --output=${tardst} ${git.branch} 2>&1"
if {[catch {system -W $tmppath $cmdstring} result]} {
delete $tardst
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ delete $tmppath
</span> return -code error [msgcat::mc "Git archive creation failed"]
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -690,6 +692,7 @@ proc portfetch::gitfetch {args} {
</span> "' 2>&1"] ""]
if {[catch {system -W $tmppath $cmdstring} result]} {
delete $tardst
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ delete $tmppath
</span> return -code error [msgcat::mc "Git submodule archive creation failed"]
}
}
</pre><pre style='margin:0'>
</pre>