Changeset 83149

Timestamp:

08/26/11 08:02:25 (4 years ago)

Author:

jmr@…

Message:

correctly treat distfiles and all_dist_files as lists in a couple places where not doing so broke quoting of filenames containing spaces (#28568)

Location:

trunk/base/src/port1.0

Files:

• portchecksum.tcl (modified) (1 diff)
• portfetch.tcl (modified) (3 diffs)

trunk/base/src/port1.0/portchecksum.tcl

@@ -87 +87 @@
         && [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

trunk/base/src/port1.0/portfetch.tcl

@@ -105 +105 @@
 
 # Set distfiles
-default distfiles {[portfetch::suffix $distname]}
+default distfiles {[list [portfetch::suffix $distname]]}
 default dist_subdir {${name}}
 
@@ -227 +227 @@
     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]
@@ -250 +250 @@
     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]