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

</pre>
<p><a href="https://github.com/macports/macports-ports/commit/1552877a43d7df665c77dddd72d3cb7d1b8e2682">https://github.com/macports/macports-ports/commit/1552877a43d7df665c77dddd72d3cb7d1b8e2682</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 1552877a43d7df665c77dddd72d3cb7d1b8e2682
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Nov 8 17:48:19 2022 +1100

<span style='display:block; white-space:pre;color:#404040;'>    perl5 pg: remove exprs only needed for old Tcl
</span>---
 _resources/port1.0/group/perl5-1.0.tcl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/_resources/port1.0/group/perl5-1.0.tcl b/_resources/port1.0/group/perl5-1.0.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 0499b3eedaa..4dc6de712a0 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/_resources/port1.0/group/perl5-1.0.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/_resources/port1.0/group/perl5-1.0.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -275,16 +275,16 @@ proc perl5_convert_version {vers} {
</span>         set start 0
     }
     set index [string first . $vers]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set other_dot [string first . [string range $vers [expr {$index + 1}] end]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set other_dot [string first . [string range $vers ${index}+1 end]]
</span>     if {$index == -1 || $other_dot != -1} {
         return [string range $vers $start end]
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set ret [string range $vers $start [expr {$index - 1}]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set ret [string range $vers $start ${index}-1]
</span>     incr index
     set fractional [string range $vers $index end]
     set index 0
     while {$index < [string length $fractional] || $index < 6} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set sub [string range $fractional $index [expr {$index + 2}]]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set sub [string range $fractional $index ${index}+2]
</span>         if {[string length $sub] < 3} {
             append sub [string repeat "0" [expr {3 - [string length $sub]}]]
         }
</pre><pre style='margin:0'>

</pre>