1. protect against PC41s with field[3] == field[2]

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 572be7a9d6cdae83abe7a0ced707773ff692096d..f96b6173a5550ce590203fce3c3461ec09817b23 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -455,6 +455,9 @@ eval {
 };
 dbg("Local::init error $@") if $@;
 
+dbg("cleaning out old debug files");
+DXDebug::dbgclean();
+
 # print various flags
 #dbg("seful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P");