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 0f62eab commit e202d33Copy full SHA for e202d33
lib/Perl/Dist/Strawberry/Step/CreateReleaseNotes.pm
@@ -15,8 +15,13 @@ sub run {
15
my $self = shift;
16
17
$self->boss->message(2, "Creating Release Notes");
18
+
19
+ my $suffix = $self->{config}->{suffix} // '';
20
+ if ($suffix) {
21
+ $self->boss->message(2, "Appending suffix ${suffix}");
22
+ }
23
- my $html_file = catfile($self->global->{output_dir}, $self->global->{output_basename} .".html");
24
+ my $html_file = catfile($self->global->{output_dir}, $self->global->{output_basename} . $suffix . ".html");
25
my $tt_file = catfile($self->global->{dist_sharedir}, qw/extra-files release_notes.html.tt/);
26
27
# get release date
0 commit comments