From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 15 Jun 2007 15:53:06 +0000 (+0100)
Subject:  * join message with "\n" in Debbugs::Estraier
X-Git-Tag: release/2.6.0~552^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d4abecd46f1a881a537b43552026f5a09e429642;p=debbugs.git

 * join message with "\n" in Debbugs::Estraier
 * Fix escape_log mention in write_log_records
---

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.