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 2
2
use 5.014;
3
3
use strict;
4
4
use warnings;
5
+ use Perl::Version;
5
6
use YAML::XS;
6
7
7
8
my %arches = (
21
22
22
23
sub suffix {
23
24
my $suffix = shift ;
24
- map { $_ eq ' latest' ? $suffix : $_ . ' -' . $suffix } @_ ;
25
+ map { $_ =~ / ( latest|devel) / ? $suffix : $_ . ' -' . $suffix } @_ ;
25
26
}
26
27
27
28
sub entry {
@@ -37,8 +38,13 @@ sub entry {
37
38
push @versionAliases , join ' .' , @version [0 .. $i ];
38
39
}
39
40
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
+
42
48
(my $buildSuffix = $build ) =~ s / ^main,// ;
43
49
$buildSuffix =~ s / ,/ -/ g ;
44
50
my @buildAliases = ($build eq ' main' ? @versionAliases : suffix $buildSuffix , @versionAliases );
You can’t perform that action at this time.
0 commit comments