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

@@ -203,12 +203,12 @@ let
close $in;
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 $result = $template;
$result =~ s/\\([1-9])/$cap[$1 - 1]/ge;
$result =~ s{\\([1-9])}{$cap[$1 - 1]}ge;
$result;
/gems;
}gems;
open my $out, q{>}, $path or die "failed to open $path for write: $!";
print {$out} $content;