start mousifying log

[debbugs.git] / lib / Debbugs / Control.pm

diff --git a/lib/Debbugs/Control.pm b/lib/Debbugs/Control.pm
index 1f8b3aac60d3cb98fe5264795fc7806e795c4bac..1bb76a72c12f88945ba3feaca87774a276af8400 100644 (file)
--- a/lib/Debbugs/Control.pm
+++ b/lib/Debbugs/Control.pm
@@ -115,6 +115,7 @@ use Debbugs::UTF8;
 use Debbugs::Status qw(bug_archiveable :read :hook writebug new_bug splitpackages split_status_fields get_bug_status);
 use Debbugs::CGI qw(html_escape);
 use Debbugs::Log qw(:misc :write);
+use Debbugs::Log::Record;
 use Debbugs::Recipients qw(:add);
 use Debbugs::Packages qw(:versions :mapping);
 
@@ -3475,10 +3476,11 @@ sub append_action_to_log{
                    };
      $msg = '';
      if ((ref($param{message}) and @{$param{message}}) or length($param{message})) {
-        push @records, {type => exists $param{recips}?'recips':'incoming-recv',
-                        exists $param{recips}?(recips => [map {encode_utf8_safely($_)} make_list($param{recips})]):(),
-                        text => join('',make_list($param{message})),
-                       };
+        push @records, Debbugs::Log::Record->
+            new(type => exists $param{recips}?'recips':'incoming-recv',
+                exists $param{recips}?(recips => [map {encode_utf8_safely($_)} make_list($param{recips})]):(),
+                text => join('',make_list($param{message})),
+            );
      }
      write_log_records(logfh=>$logfh,
                       records => \@records,