diff options
Diffstat (limited to 'maint')
| -rwxr-xr-x | maint/changelog-syntax-fiddle | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/maint/changelog-syntax-fiddle b/maint/changelog-syntax-fiddle index e95e8aaf7..0a56d0f5c 100755 --- a/maint/changelog-syntax-fiddle +++ b/maint/changelog-syntax-fiddle @@ -23,10 +23,7 @@ s{[ \t]*$}{}; my $linky = qr{[!#]\d{3,}|TROVE-\d+-\d+}; -if (m{^ ($linky)$}) { - push @links, "[$1]"; - $_ = ''; -} else { +sub write_out_links () { if (@links) { print " ("; print join ', ', @links; @@ -34,3 +31,12 @@ if (m{^ ($linky)$}) { @links = (); } } + +if (m{^ ($linky)$}) { + push @links, "[$1]"; + $_ = ''; +} else { + write_out_links(); +} + +END { write_out_links(); } |