add dbg line to dxcron::spawn_cmd

[spider.git] / perl / DXCron.pm

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 0cc6ce88d85ec36e7fa8617627fb724f41d9bb68..ae9feb32000c1e09c84d8403ce4a651432ddaca6 100644 (file)
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -246,6 +246,7 @@ sub spawn
 {
        my $line = shift;
 
+       dbg("DXCron::spawn: $line") if isdbg("cron");
        my $fc = Mojo::IOLoop::Subprocess->new();
        $fc->run(
                         sub {my @res = `$line`; return @res},