* 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 f1699263972f587d3ddebe1569bf513b09ed9a9c..e3c89a1d6ce074c92c6d6b67c69609b4b50a6f23 100644 (file)
--- 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 90abe9c18a6e3e7330e7ef04097d6a5ee1cf9e39..35881c43bf76e34fc32194d5f762843b18148dde 100644 (file)
--- 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.