Skip to content
Permalink
Browse files

perl5-1.0.tcl: set fallback default branch to 5.28

  • Loading branch information
dbevans committed Apr 21, 2019
1 parent 1d3f57b commit df50418ebed61e4936b1dc265a1c7830949697eb
Showing with 2 additions and 2 deletions.
  1. +2 −2 _resources/port1.0/group/perl5-1.0.tcl
@@ -10,11 +10,11 @@ default perl5.default_branch {[perl5_get_default_branch]}

proc perl5_get_default_branch {} {
global prefix perl5.branches
# use whatever ${prefix}/bin/perl5 was chosen, and if none, fall back to 5.26
# use whatever ${prefix}/bin/perl5 was chosen, and if none, fall back to 5.28
if {![catch {set val [lindex [split [exec ${prefix}/bin/perl5 -V:version] {'}] 1]}]} {
set ret [join [lrange [split $val .] 0 1] .]
} else {
set ret 5.26
set ret 5.28
}
# 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}} {

0 comments on commit df50418

Please sign in to comment.
You can’t perform that action at this time.