show command line upon re-exec (log_level=trace)

diff --git a/lib/App/MPD/Feeder.pm b/lib/App/MPD/Feeder.pm
index c495f9c1a257b992c349959157cfe493d4e14dd6..dfb83c7b200e478dddf4405894d4c2f0477b4299 100644 (file)
--- a/lib/App/MPD/Feeder.pm
+++ b/lib/App/MPD/Feeder.pm
@@ -515,7 +515,12 @@ SQL
                 $log->notice("disconnecting");
                 $self->stop;
 
-                exec( "$0", '--config', $self->cfg_file, '--skip-db-update' );
+                my @exec = ( $0, '--config', $self->cfg_file, '--skip-db-update' );
+                if ( $log->is_trace ) {
+                    $log->trace( 'exec '
+                            . join( ' ', map { /\s/ ? "'$_'" : $_ } @exec ) );
+                }
+                exec(@exec);
             }
 
             if ( 'quit' eq $result ) {