Modified: branches/release_2_0/base/src/port1.0/portchecksum.tcl (83149 => 83150)
--- branches/release_2_0/base/src/port1.0/portchecksum.tcl 2011-08-26 15:02:25 UTC (rev 83149)
+++ branches/release_2_0/base/src/port1.0/portchecksum.tcl 2011-08-26 15:06:34 UTC (rev 83150)
@@ -86,7 +86,7 @@
&& [expr $nb_checksum / 2] <= $checksum_types_count
&& [lsearch -exact $checksum_types [lindex $checksums_str 0]] >= 0} {
# Convert to format #2
- set checksums_str [linsert $checksums_str 0 $all_dist_files]
+ set checksums_str [linsert $checksums_str 0 [lindex $all_dist_files 0]]
# We increased the size.
incr nb_checksum
}
Modified: branches/release_2_0/base/src/port1.0/portfetch.tcl (83149 => 83150)
--- branches/release_2_0/base/src/port1.0/portfetch.tcl 2011-08-26 15:02:25 UTC (rev 83149)
+++ branches/release_2_0/base/src/port1.0/portfetch.tcl 2011-08-26 15:06:34 UTC (rev 83150)
@@ -104,7 +104,7 @@
default hg.tag {tip}
# Set distfiles
-default distfiles {[portfetch::suffix $distname]}
+default distfiles {[list [portfetch::suffix $distname]]}
default dist_subdir {${name}}
# user name & password
@@ -229,7 +229,7 @@
if {[info exists patchfiles]} {
foreach file $patchfiles {
- if {![file exists $filespath/$file]} {
+ if {![file exists "${filespath}/${file}"]} {
set distsite [getdisttag $file]
set file [getdistname $file]
lappend all_dist_files $file
@@ -252,7 +252,7 @@
if {[info exists distfiles]} {
foreach file $distfiles {
- if {![file exists $filespath/$file]} {
+ if {![file exists "${filespath}/${file}"]} {
set distsite [getdisttag $file]
set file [getdistname $file]
lappend all_dist_files $file