Only add warnings key to 'result' if there are warnings

metacpan · May 14, 2016 · 39afb0d · 39afb0d
1 parent 912021b
commit 39afb0d
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Queue.pm b/lib/MetaCPAN/Queue.pm
@@ -45,11 +45,16 @@ sub startup {
             local @ARGV = @args;
             try {
                 my $release = MetaCPAN::Script::Runner->run(@args);
-                $job->finish( { warnings => \@warnings } );
+                $job->finish( @warnings ? { warnings => \@warnings } : () );
             }
             catch {
                 warn $_;
-                $job->fail( { message => $_, warnings => \@warnings } );
+                $job->fail(
+                    {
+                        message => $_,
+                        @warnings ? ( warnings => \@warnings ) : (),
+                    }
+                );
             };
         }
     );