From 00653fc741b16366a7a7361ccbd323fd3f40efc8 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Fri, 7 Jan 2005 00:40:18 +0000 Subject: [PATCH] (output): Merge consecutive lines of parenthesis. --- changelog-to-rss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/changelog-to-rss b/changelog-to-rss index 093b7901..667c6ae9 100755 --- a/changelog-to-rss +++ b/changelog-to-rss @@ -32,7 +32,7 @@ if (not $url) { $q->start_html('ChangeLog to RSS'), $q->h1('ChangeLog to RSS'), $q->p('Translates ChangeLog output to RSS 2.0.'), - $q->p(q{$Id: changelog-to-rss,v 1.15 2005/01/07 00:33:22 as Exp $}), + $q->p(q{$Id: changelog-to-rss,v 1.16 2005/01/07 00:40:18 as Exp $}), $q->start_form(-method=>'GET'), $q->p('ChangeLog URL: ', $q->textfield('url', '', 70)), @@ -94,7 +94,8 @@ sub output { $date = to_date($date); $author = quote_html($author); $log =~ s|^\t||mg; # strip leading tabs on every line - $log =~ s|\((.*?)\)(:|$)|
($1)$2|g; # add linebreaks and highlighting for parentheses + $log =~ s|\)\n\(|, |g; # fix weird continuation groups + $log =~ s|\((.*?)\):|
($1):|g; # add linebreaks and highlighting for parentheses $log =~ s|^ *
||; # strip first linebreak, if there is one $log = quote_html($log); my $link = $pattern;