Changeset 14545 for trunk/base

Timestamp:

Oct 11, 2005, 7:22:03 AM (19 years ago)

Author:

pguyot (Paul Guyot)

Message:

I should have tested such an obvious change.

File:

• trunk/base/src/port/portindex.tcl (modified) (2 diffs)

trunk/base/src/port/portindex.tcl

@@ -5 +5 @@
 # Traverse through all ports, creating an index and archiving port directories
 # if requested
-# $Id: portindex.tcl,v 1.35 2005/10/11 06:35:28 pguyot Exp $
+# $Id: portindex.tcl,v 1.36 2005/10/11 07:22:03 pguyot Exp $
 
 catch {source \
@@ -111 +111 @@
         set prefix {\${prefix}}
         array set portinfo [dportinfo $interp]
-        set prefix $save_prefix # the code currently doesn't need prefix to be
-                                                        # correct, but let's revert it ASAP anyway.
+        set prefix $save_prefix
+        # the code currently doesn't need prefix to be correct, but let's
+        # revert it ASAP anyway.
         dportclose $interp
         set portinfo(portdir) $portdir