We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent dd56914 commit 22f6a0dCopy full SHA for 22f6a0d
script/bmt
@@ -261,8 +261,9 @@ sub adjust_linux_workflow :Register("adjust linux workflow perl versions") {
261
262
my @versions = $yaml->{jobs}{perl}{strategy}{matrix}{'perl-version'}->@*;
263
264
- my @should_remove = grep { $_ < $min_version_s } grep { /\A5/ } @versions;
265
- unshift @should_remove, '5.8' unless $min_version eq '5.008';
+ my @should_remove = grep { my $s = $_; $s =~ s/-.*//; $s < $min_version_s } grep { /\A5/ } @versions;
+ my @five_point_eights = grep { /\A5\.8/ } @versions;
266
+ unshift @should_remove, @five_point_eights unless $min_version eq '5.008';
267
268
say "\tfound versions: @versions";
269
say "\tshould remove: @should_remove";
0 commit comments