[Bps-public-commit] app-wsgetmail branch, master, updated. ab4050f659fe40e17611469db270e304936f688e

[? sunnavy]

The branch, master has been updated
       via  ab4050f659fe40e17611469db270e304936f688e (commit)
      from  fc2450fbfb4cec345cf8bc30b8bdea96152fba55 (commit)

Summary of changes:
 lib/App/wsgetmail/MDA.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit ab4050f659fe40e17611469db270e304936f688e
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Fri Apr 9 04:07:58 2021 +0800

    Skip the misleading $! as it is not set by IPC::Run::run

diff --git a/lib/App/wsgetmail/MDA.pm b/lib/App/wsgetmail/MDA.pm
index 7258b7b..a76c423 100644
--- a/lib/App/wsgetmail/MDA.pm
+++ b/lib/App/wsgetmail/MDA.pm
@@ -76,10 +76,10 @@ sub _run_command {
     }
     my $ok = run ([ $self->command, _split_command_args($self->command_args, 1)], $fh, \$output, \$error, timeout( $self->command_timeout + 5 ) );
     unless ($ok) {
-        warn sprintf('failed to run command "%s %s" for file %s : %s : %s',
+        warn sprintf('failed to run command "%s %s" for file %s : %s',
                      $self->command,
                      ($self->debug ? join(' ', _split_command_args($self->command_args)) : '' ),
-                     $filename, $!, $?);
+                     $filename, $?);
         warn "output : $output\nerror:$error\n" if ($self->debug);
     }
     close $fh;

-----------------------------------------------------------------------