log if env var GIT_CODEOWNERS_DEBUG is set

diff --git a/lib/App/Codeowners/Util.pm b/lib/App/Codeowners/Util.pm
index d7a4a4b450ccce470124c41224748c68d967f8e4..ac613f1dcb24e1db226d7ed98002aa7de4237c3c 100644 (file)
--- a/lib/App/Codeowners/Util.pm
+++ b/lib/App/Codeowners/Util.pm
@@ -89,6 +89,8 @@ sub run_command {
     my $filter;
     $filter = pop if ref($_[-1]) eq 'CODE';
 
+    print STDERR "# @_\n" if $ENV{GIT_CODEOWNERS_DEBUG};
+
     my ($child_in, $child_out);
     require IPC::Open2;
     my $pid = IPC::Open2::open2($child_out, $child_in, @_);
@@ -283,6 +285,7 @@ sub unbackslash {
         }
         waitpid($pid, 0);
         my $status = $?;
+        print STDERR "# -> status $status\n" if $ENV{GIT_CODEOWNERS_DEBUG};
         delete $self->{pid};
         return $status;
     }