Skip to content
Browse files

Permanently retire the contents { .. } hack. Sorry. It was convenient,

it looked nicer in many cases, but it was frankly more of a special-case pain
than it was worth in terms of its impact on other infrastructural routines
that expected to be able to deal with the contents procedure the same as all
the others.  Better to just throw this out all at once and nuke all existing
examples of it so nobody tries to use it in the future.  The support for it
has also been fundamentally removed, so it also won't work if people accidently
try to use it.

git-svn-id: d073be05-634f-4543-b044-5fe20cf6d1d6
  • Loading branch information
Jordan K. Hubbard
Jordan K. Hubbard committed Jan 3, 2003
1 parent eba8a02 commit 3ccf508232d074ed933b9b2748576e0b3779bb60
Showing with 1 addition and 7 deletions.
  1. +1 −7 src/port1.0/portregistry.tcl
@@ -227,13 +227,7 @@ proc registry_main {args} {
registry_store $rhandle [concat package-install ${package-install}]
if [info exists contents] {
# If it's a list, try and split it up.
if {[llength $contents] == 1} {
set x [list contents [eval fileinfo_for_index $contents]]
} else {
set x [list contents [fileinfo_for_index $contents]]
registry_store $rhandle $x
registry_store $rhandle [list contents [fileinfo_for_index $contents]]
if {[info proc pkg_uninstall] == "pkg_uninstall"} {
registry_store $rhandle [list uninstall [proc_disasm pkg_uninstall]]

0 comments on commit 3ccf508

Please sign in to comment.
You can’t perform that action at this time.