fix: release parser

This commit is contained in:
eric
2026-03-07 07:51:08 +01:00
parent 30029e5954
commit 976fc8c1a7
2 changed files with 4 additions and 4 deletions

View File

@@ -1,3 +1,3 @@
3.0.0 2.1.0
stable stable
0 0

View File

@@ -203,12 +203,12 @@ let
close $in; close $in;
my $regex = qr/$regex_src/ms; my $regex = qr/$regex_src/ms;
$content =~ s/$regex/ $content =~ s{$regex}{
my @cap = map { defined $_ ? $_ : q{} } ($1, $2, $3, $4, $5, $6, $7, $8, $9); my @cap = map { defined $_ ? $_ : q{} } ($1, $2, $3, $4, $5, $6, $7, $8, $9);
my $result = $template; my $result = $template;
$result =~ s/\\([1-9])/$cap[$1 - 1]/ge; $result =~ s{\\([1-9])}{$cap[$1 - 1]}ge;
$result; $result;
/gems; }gems;
open my $out, q{>}, $path or die "failed to open $path for write: $!"; open my $out, q{>}, $path or die "failed to open $path for write: $!";
print {$out} $content; print {$out} $content;