Write debug messages on STDERR

[app-lastmsg.git] / lib / App / Lastmsg.pm

diff --git a/lib/App/Lastmsg.pm b/lib/App/Lastmsg.pm
index 8d2cce57eb09d247c336dcd61711c9ed32a58d0d..07f71db434c4789cceab6035c054527780f5f4ed 100644 (file)
--- a/lib/App/Lastmsg.pm
+++ b/lib/App/Lastmsg.pm
@@ -59,14 +59,14 @@ sub run {
 
        for my $folder (@{$config->{inbox}}) {
                next unless -e $folder;
-               say "Scanning $folder (inbox)" if $ENV{LASTMSG_DEBUG};
+               say STDERR "Scanning $folder (inbox)" if $ENV{LASTMSG_DEBUG};
                my $folder = Email::Folder->new($folder);
                while (my $msg = $folder->next_message) {
                        my ($from) = grep { /^from$/i } $msg->header_names;
                        $from = $msg->header_raw($from);
                        if ($ENV{LASTMSG_DEBUG}) {
                                my $mid = grep { /^message-id$/i } $msg->header_names;
-                               say 'Processing ', $msg->header_raw('Message-ID'),
+                               say STDERR 'Processing ', $msg->header_raw('Message-ID'),
                                  " from $from" if $ENV{LASTMSG_DEBUG};
                        }
                        $process_message->($msg, $from);
@@ -75,7 +75,7 @@ sub run {
 
        for my $folder (@{$config->{sent}}) {
                next unless -e $folder;
-               say "Scanning $folder (sent)" if $ENV{LASTMSG_DEBUG};
+               say STDERR "Scanning $folder (sent)" if $ENV{LASTMSG_DEBUG};
                my $folder = Email::Folder->new($folder);
                while (my $msg = $folder->next_message) {
                        my @hdrs = grep { /^(?:to|cc|bcc)$/i } $msg->header_names;
@@ -85,7 +85,7 @@ sub run {
                        }
                        if ($ENV{LASTMSG_DEBUG}) {
                                my $mid = grep { /^message-id$/i } $msg->header_names;
-                               say 'Processing ', $msg->header_raw($mid),
+                               say STDERR 'Processing ', $msg->header_raw($mid),
                                  ' sent to ', join ',', @people if $ENV{LASTMSG_DEBUG};
                        }
                        $process_message->($msg, @people);