X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=1e3efc47fd97bc6ecae12f506bcca9b3ede6f857;hb=a76624e4742348ed0f39c7c3f732cdec8462da9e;hp=cec310961b3feda189d3059536cf369a142fa0c9;hpb=761aaa75e6522761e09c819aa446ee1777bdb3db;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index cec31096..1e3efc47 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -1264,7 +1264,7 @@ sub spawn_cmd
 	my $cb = delete $args{cb};
 	my $prefix = delete $args{prefix};
 	my $progress = delete $args{progress};
-	my $args = delete $args{args};
+	my $args = delete $args{args} || [];
 
 	no strict 'refs';