Diff
Modified: trunk/base/src/registry2.0/portimage.tcl (119614 => 119615)
--- trunk/base/src/registry2.0/portimage.tcl 2014-05-02 13:56:45 UTC (rev 119614)
+++ trunk/base/src/registry2.0/portimage.tcl 2014-05-02 14:18:04 UTC (rev 119615)
@@ -268,10 +268,10 @@
::file mkdir $dstfile
# fix attributes on the directory.
if {[getuid] == 0} {
- eval ::file attributes {$dstfile} [::file attributes $srcfile]
+ ::file attributes {$dstfile} {*}[::file attributes $srcfile]
} else {
# not root, so can't set owner/group
- eval ::file attributes {$dstfile} -permissions [::file attributes $srcfile -permissions]
+ ::file attributes {$dstfile} -permissions {*}[::file attributes $srcfile -permissions]
}
# set mtime on installed element
::file mtime $dstfile [::file mtime $srcfile]
Modified: trunk/base/src/registry2.0/tests/depends.tcl (119614 => 119615)
--- trunk/base/src/registry2.0/tests/depends.tcl 2014-05-02 13:56:45 UTC (rev 119614)
+++ trunk/base/src/registry2.0/tests/depends.tcl 2014-05-02 14:18:04 UTC (rev 119615)
@@ -6,7 +6,7 @@
load $pextlibname
# totally lame that file delete won't do it
- eval exec rm -f [glob -nocomplain test.db*]
+ exec rm -f {*}[glob -nocomplain test.db*]
registry::open test.db
Modified: trunk/base/src/registry2.0/tests/entry.tcl (119614 => 119615)
--- trunk/base/src/registry2.0/tests/entry.tcl 2014-05-02 13:56:45 UTC (rev 119614)
+++ trunk/base/src/registry2.0/tests/entry.tcl 2014-05-02 14:18:04 UTC (rev 119615)
@@ -7,7 +7,7 @@
load $pextlibname
# totally lame that file delete won't do it
- eval exec rm -f [glob -nocomplain test.db*]
+ exec rm -f {*}[glob -nocomplain test.db*]
# can't create registry in some brain-dead place or in protected place
test_throws {registry::open /some/brain/dead/place} registry::cannot-init