X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=c2cab9f9bb619dc02ed6831ae9a1401b85f006af;hb=1cc51a6696899a05d1b9ca40dab497cfdc39294b;hp=96c135376495fbbb0747f64b7ee996ae4657bfdb;hpb=a79ed63d7b2c53c1f360512afa2a68ba311b9554;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 96c13537..c2cab9f9 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -147,7 +147,7 @@ sub start
 	}
 
 	# run a script send the output to the punter
-	my $script = new Script(lc $call);
+	my $script = new Script(lc $call) || new Script('user_default');
 	$script->run($self) if $script;
 }