Permalink
Browse files
perl5-1.0.tcl: set fallback default branch to 5.28
- Loading branch information
Showing
with
2 additions
and
2 deletions.
-
+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}} { |
|
|
|