<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>