Changeset 4ead7b3 for perl

Timestamp:

Aug 16, 2017, 12:53:41 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

42779f8

Parents:

5093c6f

git-author:

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

git-committer:

Jason Gross <jasongross9@gmail.com> (08/16/17 12:53:41)

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;