Ignore:
Timestamp:
Jan 3, 2003, 7:58:24 AM (18 years ago)
Author:
jkh
Message:

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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portregistry.tcl

    r1503 r1528  
    228228    }
    229229    if [info exists contents] {
    230         # If it's a list, try and split it up.
    231         if {[llength $contents] == 1} {
    232             set x [list contents [eval fileinfo_for_index $contents]]
    233         } else {
    234             set x [list contents [fileinfo_for_index $contents]]
    235         }
    236         registry_store $rhandle $x
     230        registry_store $rhandle [list contents [fileinfo_for_index $contents]]
    237231    }
    238232    if {[info proc pkg_uninstall] == "pkg_uninstall"} {
Note: See TracChangeset for help on using the changeset viewer.