[87698] branches/gsoc11-rev-upgrade/base
cal at macports.org
cal at macports.org
Thu Dec 1 11:41:23 PST 2011
Revision: 87698
http://trac.macports.org/changeset/87698
Author: cal at macports.org
Date: 2011-12-01 11:41:23 -0800 (Thu, 01 Dec 2011)
Log Message:
-----------
rev-upgrade: Merge from trunk
Modified Paths:
--------------
branches/gsoc11-rev-upgrade/base/src/port1.0/portchecksum.tcl
Property Changed:
----------------
branches/gsoc11-rev-upgrade/base/
Property changes on: branches/gsoc11-rev-upgrade/base
___________________________________________________________________
Modified: svn:mergeinfo
- /branches/gsoc08-privileges/base:37343-46937
/branches/gsoc09-logging/base:51231-60371
/branches/universal-sanity/base:51872-52323
/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
/trunk/base:78828-87593
/users/perry/base-bugs_and_notes:45682-46060
/users/perry/base-select:44044-44692
+ /branches/gsoc08-privileges/base:37343-46937
/branches/gsoc09-logging/base:51231-60371
/branches/universal-sanity/base:51872-52323
/branches/variant-descs-14482/base:34469-34855,34900-37508,37511-37512,41040-41463,42575-42626,42640-42659
/trunk/base:78828-87697
/users/perry/base-bugs_and_notes:45682-46060
/users/perry/base-select:44044-44692
Modified: branches/gsoc11-rev-upgrade/base/src/port1.0/portchecksum.tcl
===================================================================
--- branches/gsoc11-rev-upgrade/base/src/port1.0/portchecksum.tcl 2011-12-01 19:38:04 UTC (rev 87697)
+++ branches/gsoc11-rev-upgrade/base/src/port1.0/portchecksum.tcl 2011-12-01 19:41:23 UTC (rev 87698)
@@ -242,10 +242,20 @@
}
}
+ if {[llength $all_dist_files] > 1} {
+ lappend sums $distfile
+ }
+
# check that there is at least one checksum for the distfile.
if {![info exists checksums_array($distfile)] || [llength $checksums_array($distfile)] < 1} {
ui_error "[format [msgcat::mc "No checksum set for %s"] $distfile]"
set fail yes
+
+ # no checksums specified; output the default set
+ foreach type $default_checksum_types {
+ lappend sums [format "%-8s%s" $type [calc_$type $fullpath]]
+ }
+
} else {
# retrieve the list of types/values from the array.
set portfile_checksums $checksums_array($distfile)
@@ -282,22 +292,6 @@
if {[tbool fail]} {
# Show the desired checksum line for easy cut-paste
- foreach distfile $all_dist_files {
- if {[llength $all_dist_files] > 1} {
- lappend sums $distfile
- }
-
- set fullpath [file join $distpath $distfile]
- if {![file isfile $fullpath] && (!$usealtworkpath && [file isfile "${altprefix}${fullpath}"])} {
- set fullpath "${altprefix}${fullpath}"
- }
- if {![info exists checksums_array($distfile)] || [llength $checksums_array($distfile)] < 1} {
- # no checksums specified; output the default set
- foreach type $default_checksum_types {
- lappend sums [format "%-8s%s" $type [calc_$type $fullpath]]
- }
- }
- }
ui_info "The correct checksum line may be:"
ui_info [format "%-20s%s" "checksums" [join $sums [format " \\\n%-20s" ""]]]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20111201/3824a6d9/attachment.html>
More information about the macports-changes
mailing list