Changeset 14545 for trunk/base


Ignore:
Timestamp:
Oct 11, 2005, 7:22:03 AM (15 years ago)
Author:
pguyot (Paul Guyot)
Message:

I should have tested such an obvious change.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port/portindex.tcl

    r14543 r14545  
    55# Traverse through all ports, creating an index and archiving port directories
    66# if requested
    7 # $Id: portindex.tcl,v 1.35 2005/10/11 06:35:28 pguyot Exp $
     7# $Id: portindex.tcl,v 1.36 2005/10/11 07:22:03 pguyot Exp $
    88
    99catch {source \
     
    111111        set prefix {\${prefix}}
    112112        array set portinfo [dportinfo $interp]
    113         set prefix $save_prefix # the code currently doesn't need prefix to be
    114                                                         # correct, but let's revert it ASAP anyway.
     113        set prefix $save_prefix
     114        # the code currently doesn't need prefix to be correct, but let's
     115        # revert it ASAP anyway.
    115116        dportclose $interp
    116117        set portinfo(portdir) $portdir
Note: See TracChangeset for help on using the changeset viewer.