Skip to content
Permalink
Browse files

Output the error when fetching fails if -d is provided.

(this avoids unnecessary hacks of the source by users).

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14583 d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
pguyot committed Oct 12, 2005
1 parent d44fd8e commit 4495cb1b477cbe71682338f7920e04a3c18ea936
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/port1.0/portfetch.tcl
@@ -1,6 +1,6 @@
# et:ts=4
# portfetch.tcl
# $Id: portfetch.tcl,v 1.106 2005/10/05 04:28:05 pguyot Exp $
# $Id: portfetch.tcl,v 1.107 2005/10/12 22:10:28 pguyot Exp $
#
# Copyright (c) 2002 - 2003 Apple Computer, Inc.
# All rights reserved.
@@ -407,7 +407,7 @@ proc fetchfiles {args} {
set fetched 1
break
} else {
# ui_warn "[msgcat::mc "Unable to fetch:"]: $result"
ui_debug "[msgcat::mc "Fetching failed:"]: $result"
exec rm -f ${distpath}/${distfile}.TMP
}
}

0 comments on commit 4495cb1

Please sign in to comment.
You can’t perform that action at this time.