[47237] trunk/base/src/macports1.0/macports.tcl

blb at macports.org blb at macports.org
Mon Feb 23 17:33:14 PST 2009


Revision: 47237
          http://trac.macports.org/changeset/47237
Author:   blb at macports.org
Date:     2009-02-23 17:33:14 -0800 (Mon, 23 Feb 2009)
Log Message:
-----------
macports1.0/macports.tcl - use read instead of seek to skip over non-ASCII bits to better act like the basic PortIndex code; ticket #18607

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-02-24 01:31:18 UTC (rev 47236)
+++ trunk/base/src/macports1.0/macports.tcl	2009-02-24 01:33:14 UTC (rev 47237)
@@ -1874,7 +1874,7 @@
                 append quicklist "[string tolower $name] ${offset}\n"
 
                 set len [lindex $line 1]
-                seek $indexfd $len current
+                read $indexfd $len
                 set offset [tell $indexfd]
             }
             puts -nonewline $quickfd $quicklist
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090223/aeef04c8/attachment-0001.html>


More information about the macports-changes mailing list