Ticket #16234: portindex.tcl.diff
| File portindex.tcl.diff, 0.6 KB (added by blb@…, 4 years ago) |
|---|
-
base/src/port/portindex.tcl
old new 136 136 } 137 137 138 138 puts "Creating software index in $outdir" 139 set fd [open [file join $outdir PortIndex ] w]139 set fd [open [file join $outdir PortIndex.regen] w] 140 140 mporttraverse pindex $directory 141 141 close $fd 142 file rename -force PortIndex.regen PortIndex 142 143 puts "\nTotal number of ports parsed:\t$stats(total)\ 143 144 \nPorts successfully parsed:\t[expr $stats(total) - $stats(failed)]\t\ 144 145 \nPorts failed:\t\t\t$stats(failed)\n"