<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/c8a269f711a2dc00ba67a67ae69995a57c998aba">https://github.com/macports/macports-base/commit/c8a269f711a2dc00ba67a67ae69995a57c998aba</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit c8a269f711a2dc00ba67a67ae69995a57c998aba
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Mon Oct 31 03:52:17 2022 +1100

<span style='display:block; white-space:pre;color:#404040;'>    portindex: fix bug due to variable reuse
</span>---
 src/port/portindex.tcl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/portindex.tcl b/src/port/portindex.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index b0dbd782f..74910a3da 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/portindex.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/portindex.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -47,14 +47,14 @@ proc _read_index {idx} {
</span>     set offset $::qindex($idx)
     thread::mutex lock [tsv::get PortIndex mutex]
     seek $::oldfd $offset
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    gets $::oldfd line
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    gets $::oldfd in_line
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set len  [lindex $line 1]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set line [read $::oldfd [expr {$len - 1}]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set len  [lindex $in_line 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set out_line [read $::oldfd [expr {$len - 1}]]
</span>     thread::mutex unlock [tsv::get PortIndex mutex]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set name [lindex $line 0]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set name [lindex $in_line 0]
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    return [list $name $len $line]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    return [list $name $len $out_line]
</span> }
 
 proc _index_from_portinfo {portinfoname {is_subport no}} {
</pre><pre style='margin:0'>

</pre>