bugfix: anchored pattern did not allow additional _ before number part

This commit is contained in:
2023-08-28 15:18:06 +02:00
parent e151698cd2
commit e4760cee1d
+4 -4
View File
@@ -243,11 +243,11 @@ sub parse_git_output {
$version = "$major.$minor.$patch";
say STDERR "Checking tag $line => version $version";
}
elsif ($line =~ /^[a-zA-Z]+[a-zA-Z0-9]*_([0-9]+)_([0-9]+)(_([0-9]+))?$/) {
elsif ($line =~ /^([a-zA-Z][a-zA-Z0-9]*_)+([0-9]+)_([0-9]+)(_([0-9]+))?$/) {
$tag = $line;
my $major = $1;
my $minor = $2;
my $patch = $4 || "0";
my $major = $2;
my $minor = $3;
my $patch = $5 || "0";
$version = "$major.$minor.$patch";
say STDERR "Checking tag $line => version $version";
}