fix: release parser
This commit is contained in:
@@ -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;
|
||||||
|
|||||||
Reference in New Issue
Block a user