Ticket #16234: portindex.tcl.diff

File portindex.tcl.diff, 579 bytes (added by blb@…, 16 years ago)

diff to base/src/port/portindex.tcl

  • base/src/port/portindex.tcl

    old new  
    136136}
    137137
    138138puts "Creating software index in $outdir"
    139 set fd [open [file join $outdir PortIndex] w]
     139set fd [open [file join $outdir PortIndex.regen] w]
    140140mporttraverse pindex $directory
    141141close $fd
     142file rename -force PortIndex.regen PortIndex
    142143puts "\nTotal number of ports parsed:\t$stats(total)\
    143144      \nPorts successfully parsed:\t[expr $stats(total) - $stats(failed)]\t\
    144145      \nPorts failed:\t\t\t$stats(failed)\n"