X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fdbtest.pl;h=6951c76dbf041276d93227e3d8b54c390e6bf302;hb=72346862008f655ed4d70067d67a3759bc81de61;hp=c4f5ca8e9d259a08cd016ce1530dc3b246654306;hpb=91590ef13701b9239dde265d6bcf33b6e3e99a98;p=spider.git

diff --git a/perl/dbtest.pl b/perl/dbtest.pl
index c4f5ca8e..6951c76d 100755
--- a/perl/dbtest.pl
+++ b/perl/dbtest.pl
@@ -20,6 +20,10 @@ use ARRL::DX;
 
 while (@ARGV) {
 	my $fn = shift;
+	if ($fn eq '-d') {
+		ARRL::DX::drop();
+		next;
+	}
 	print "Processing $fn ";
 	my $dx = ARRL::DX->new(file=>$fn);
 	my $c = $dx->process;