File tree Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Expand file tree Collapse file tree 1 file changed +9
-3
lines changed Original file line number Diff line number Diff line change 22use 5.014;
33use strict;
44use warnings;
5+ use Perl::Version;
56use YAML::XS;
67
78my %arches = (
2122
2223sub suffix {
2324 my $suffix = shift ;
24- map { $_ eq ' latest' ? $suffix : $_ . ' -' . $suffix } @_ ;
25+ map { $_ =~ / ( latest|devel) / ? $suffix : $_ . ' -' . $suffix } @_ ;
2526}
2627
2728sub entry {
@@ -37,8 +38,13 @@ sub entry {
3738 push @versionAliases , join ' .' , @version [0 .. $i ];
3839 }
3940
40- push @versionAliases , ' latest' ;
41-
41+ if (Perl::Version-> new($version )-> version % 2) {
42+ push @versionAliases , ' latest-blead' , ' devel'
43+ }
44+ else {
45+ push @versionAliases , ' latest' ;
46+ }
47+
4248 (my $buildSuffix = $build ) =~ s / ^main,// ;
4349 $buildSuffix =~ s / ,/ -/ g ;
4450 my @buildAliases = ($build eq ' main' ? @versionAliases : suffix $buildSuffix , @versionAliases );
You can’t perform that action at this time.
0 commit comments