[MacPorts] #40652: After selfupdate the list command fails

[MacPorts]

#40652: After selfupdate the list command fails
-------------------------------+--------------------------------
 Reporter:  feliks.kluzniak@…  |      Owner:  macports-tickets@…
     Type:  defect             |     Status:  new
 Priority:  Normal             |  Milestone:
Component:  base               |    Version:  2.2.0
 Keywords:                     |       Port:
-------------------------------+--------------------------------
 After today's "selfupdate" the basic "port" file has not changed, but
 apparently something got corrupted.  Everything else seems to work well,
 but the command "list" gives an error, as show below. (Repeating
 selfupdate went without a hitch, but the problem persists.)

 If this is only on my machine, I'd appreciate a hint: How can I recover
 without reinstalling everything?

 {{{
 > port list
 ....
 py25-pyprotocols               @1.0a0dev-r2302 python/py-pyprotocols
 py26-pyprotocols               @1.0a0dev-r2302 python/py-pyprotocols
 can't read "portinfo(version)": no such element in array
     while executing
 "format "%-30s @%-14s %s" $portinfo(name) $portinfo(version) $outdir"
     ("foreach" body line 8)
     invoked from within
 "foreach {name array} $res {
             array unset portinfo
             array set portinfo $array
             set outdir ""
             if {[info exi..."
     ("uplevel" body line 17)
     invoked from within
 "uplevel 1 $block"
     (procedure "foreachport" line 20)
     invoked from within
 "foreachport $portlist {
         if {$portname == "-all-"} {
            if {[catch {set res [mportlistall]} result]} {
                 global errorInfo..."
     (procedure "action_list" line 10)
     invoked from within
 "$action_proc $action $portlist [array get global_options]"
     (procedure "process_cmd" line 93)
     invoked from within
 "process_cmd $remaining_args"
     invoked from within
 "if { [llength $remaining_args] > 0 } {

     # If there are remaining arguments, process those as a command
     set exit_status [process_cmd $remaining..."
     (file "/opt/local/bin/port" line 4857)
 > ll /opt/local/bin/port
 -r-xr-xr-x  1 root  admin  167450 23 Jul 03:33 /opt/local/bin/port
 }}}

-- 
Ticket URL: <https://trac.macports.org/ticket/40652>
MacPorts <http://www.macports.org/>
Ports system for OS X