<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/cf3dd8f0dbd699ef0db1392bf860d559f7a49b6c">https://github.com/macports/macports-ports/commit/cf3dd8f0dbd699ef0db1392bf860d559f7a49b6c</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit cf3dd8f0dbd699ef0db1392bf860d559f7a49b6c
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Wed Mar 13 07:36:32 2024 +1100

<span style='display:block; white-space:pre;color:#404040;'>    perl5 pg: use a fixed default version
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Not only is this better for reproducibility, but not executing an
</span><span style='display:block; white-space:pre;color:#404040;'>    external program also almost halves the parse time for p5-* stub ports
</span><span style='display:block; white-space:pre;color:#404040;'>    and apps that use the portgroup.
</span>---
 _resources/port1.0/group/perl5-1.0.tcl | 9 ++-------
 1 file changed, 2 insertions(+), 7 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 16d1888ab7f..ef74fba8466 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;'>@@ -9,13 +9,8 @@ options perl5.default_branch perl5.branches
</span> default perl5.default_branch {[perl5_get_default_branch]}
 
 proc perl5_get_default_branch {} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    global prefix perl5.branches
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    # use whatever ${prefix}/bin/perl5 was chosen, and if none, fall back to 5.34
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![catch {set val [lindex [split [exec ${prefix}/bin/perl5 -V:version] {'}] 1]}]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set ret [join [lrange [split $val .] 0 1] .]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    } else {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set ret 5.34
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    global perl5.branches
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set ret 5.34
</span>     # if the above default is not supported by this module, use the latest it does support
     if {[info exists perl5.branches] && $ret ni ${perl5.branches}} {
         set ret [lindex ${perl5.branches} end]
</pre><pre style='margin:0'>

</pre>