From d4abecd46f1a881a537b43552026f5a09e429642 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Fri, 15 Jun 2007 16:53:06 +0100 Subject: [PATCH] * join message with "\n" in Debbugs::Estraier * Fix escape_log mention in write_log_records --- Debbugs/Estraier.pm | 2 +- Debbugs/Log.pm | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Debbugs/Estraier.pm b/Debbugs/Estraier.pm index f169926..e3c89a1 100644 --- a/Debbugs/Estraier.pm +++ b/Debbugs/Estraier.pm @@ -121,7 +121,7 @@ sub add_bug_message{ $doc = new Search::Estraier::Document if not defined $doc; my $message = parse($bug_message); - $doc->add_text(join('',make_list(values %{$message}))); + $doc->add_text(join("\n",make_list(values %{$message}))); # * @id : the ID number determined automatically when the document is registered. # * @uri : the location of a document which any document should have. diff --git a/Debbugs/Log.pm b/Debbugs/Log.pm index 90abe9c..35881c4 100644 --- a/Debbugs/Log.pm +++ b/Debbugs/Log.pm @@ -268,7 +268,7 @@ sub write_log_records (*@) for my $record (@records) { my $type = $record->{type}; - my ($text) = escapelog($record->{text}); + my ($text) = escape_log($record->{text}); die "type '$type' with no text field" unless defined $text; if ($type eq 'autocheck') { print $logfh "\01\n$text\03\n"; @@ -297,9 +297,9 @@ sub write_log_records (*@) 1; } -=head2 escapelog +=head2 escape_log - print {$log} escapelog(@log) + print {$log} escape_log(@log) Applies the log escape regex to the passed logfile. -- 2.39.2