<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/96d5581e069463c488cc878a5c7c73fc7117b905">https://github.com/macports/macports-base/commit/96d5581e069463c488cc878a5c7c73fc7117b905</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 96d5581e0 percent_encode: avoid repeated string copies
</span>96d5581e0 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 96d5581e069463c488cc878a5c7c73fc7117b905
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Wed Jul 26 16:57:18 2023 +1000

<span style='display:block; white-space:pre;color:#404040;'>    percent_encode: avoid repeated string copies
</span>---
 src/port1.0/fetch_common.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/fetch_common.tcl b/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index bddfb65e7..cd8cd93fd 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/fetch_common.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -47,9 +47,9 @@ namespace eval portfetch::mirror_sites {
</span> # percent-encode all characters in str that are not unreserved in URIs
 proc portfetch::percent_encode {str} {
     set outstr ""
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    while {$str ne ""} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set char [string index $str 0]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set str [string range $str 1 end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set len [string length $str]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    for {set i 0} {$i < $len} {incr i} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set char [string index $str $i]
</span>         switch -- $char {
             {-} -
             {.} -
</pre><pre style='margin:0'>

</pre>