From 2329682f47dddd386db85529083ac0db040b5f66 Mon Sep 17 00:00:00 2001
From: Landon Fuller <landonf@macports.org>
Date: Thu, 1 Aug 2002 02:46:35 +0000
Subject: [PATCH] Check for fetch failure

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14 d073be05-634f-4543-b044-5fe20cf6d1d6
---
 Tcl/portfetch.1.0.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Tcl/portfetch.1.0.tcl b/Tcl/portfetch.1.0.tcl
index 0172b40a7..540d42ad1 100755
--- a/Tcl/portfetch.1.0.tcl
+++ b/Tcl/portfetch.1.0.tcl
@@ -42,9 +42,13 @@ proc portfetch::checkfiles {args} {
 			puts "Attempting to fetch from $site"
 			catch {exec curl -o ${distpath}/${distfile} ${site}${distfile} >&@ stdout} result
 			if {$result == 0} {
+				set fetched 1
 				break
 			}
 		}
+		if {![info exists fetched]} {
+			return -1
+		}
 	}
 	return 0
 }