[21967] trunk/base/src/port1.0/portchecksum.tcl

[source_changes at macosforge.org]

Revision: 21967
          http://trac.macosforge.org/projects/macports/changeset/21967
Author:   eridius at macports.org
Date:     2007-02-12 10:39:48 -0800 (Mon, 12 Feb 2007)

Log Message:
-----------
Checksum phase should not delete distfiles if checksum mismatch, because fetch phase will not be re-called if another checksum attempted (which causes file not found errors).

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

Modified: trunk/base/src/port1.0/portchecksum.tcl
===================================================================
--- trunk/base/src/port1.0/portchecksum.tcl	2007-02-12 17:42:52 UTC (rev 21966)
+++ trunk/base/src/port1.0/portchecksum.tcl	2007-02-12 18:39:48 UTC (rev 21967)
@@ -233,10 +233,6 @@
 						ui_debug "[format [msgcat::mc "Correct (%s) checksum for %s"] $type $distfile]"
 					} else {
 						ui_error "[format [msgcat::mc "Checksum (%s) mismatch for %s"] $type $distfile]"
-						# if -v isn't specified, trash the distfile.
-						if {${portverbose} == "no"} {
-							file delete -force ${fullpath}
-						}
 						ui_info "[format [msgcat::mc "Portfile checksum: %s %s %s"] $distfile $type $sum]"
 						ui_info "[format [msgcat::mc "Distfile checksum: %s %s %s"] $distfile $type $calculated_sum]"
 						

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070212/1f46c444/attachment.html