6. Make the scripts look for user and node_default files if there isn't a

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 30fd979073680473a33fa010e893ba7dee337a60..b8b17ae612065b2080eb8c44f7c34cc20120c81c 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -275,7 +275,7 @@ sub start
        $self->tell_login('loginn');
 
        # run a script send the output to the debug file
-       my $script = new Script(lc $call);
+       my $script = new Script(lc $call) || new Script('node_default');
        $script->run($self) if $script;
 }