[24026] trunk/base/src/port1.0/portlivecheck.tcl

[source_changes at macosforge.org]

Revision: 24026
          http://trac.macosforge.org/projects/macports/changeset/24026
Author:   pguyot at kallisys.net
Date:     2007-04-14 21:19:09 -0700 (Sat, 14 Apr 2007)

Log Message:
-----------
Fixed a bug where when the livecheck fails on fetch, we reported both that we could not check if the port was updated and that it was not updated.

Modified Paths:
--------------
    trunk/base/src/port1.0/portlivecheck.tcl

Modified: trunk/base/src/port1.0/portlivecheck.tcl
===================================================================
--- trunk/base/src/port1.0/portlivecheck.tcl	2007-04-15 04:16:55 UTC (rev 24025)
+++ trunk/base/src/port1.0/portlivecheck.tcl	2007-04-15 04:19:09 UTC (rev 24026)
@@ -177,6 +177,7 @@
 		    ui_debug "Fetching ${livecheck.url}"
 			if {[catch {curl fetch ${livecheck.url} $tempfile} error]} {
 				ui_error "cannot check if $portname was updated ($error)"
+				set updated -1
 			} else {
 				# let's compute the md5 sum.
 				set dist_md5 [md5 file $tempfile]
@@ -190,6 +191,7 @@
 			set port_moddate [file mtime ${portpath}/Portfile]
 			if {[catch {set updated [curl isnewer ${livecheck.url} $port_moddate]} error]} {
 				ui_error "cannot check if $portname was updated ($error)"
+				set updated -1
 			} else {
 				if {!$updated} {
 					ui_debug "${livecheck.url} is older than Portfile"

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070414/909e2a8c/attachment.html