Changeset 145cabe for perl

Timestamp:

Aug 5, 2017, 11:23:06 PM (7 years ago)

Author:

Jason Gross <jgross@mit.edu>

Children:

8190ce8

Parents:

18c1925

git-author:

Jason Gross <jgross@mit.edu> (07/12/11 17:10:09)

git-committer:

Jason Gross <jgross@mit.edu> (08/05/17 23:23:06)

Message:

Moved notification of message logging to perl

File:

• perl/lib/BarnOwl/Logging.pm (modified) (2 diffs)

perl/lib/BarnOwl/Logging.pm

@@ -33 +33 @@
 
 use File::Spec;
+
+$BarnOwl::Hooks::newMessage->add("BarnOwl::Logging::log");
 
 =head2 sanitize_filename BASE_PATH FILENAME
@@ -116 +118 @@
 sub log {
     my ($m) = @_;
+    return unless defined $m;
     return unless BarnOwl::Logging::should_log_message($m);
     my $log_text = $m->log;