X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fgdx.pl;h=3d311e38264d4d36a5be378c331c1faba986c047;hb=8cc3ac88ee6ba2216a9f19761385c9869a2f91b1;hp=8f6f2065edd75b8395c581d8146ed1279a5ea77d;hpb=6f566611af29f5c7af653abf8cec2760a0c25b6e;p=spider.git

diff --git a/perl/gdx.pl b/perl/gdx.pl
index 8f6f2065..3d311e38 100755
--- a/perl/gdx.pl
+++ b/perl/gdx.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # grep for expressions in various fields of the dx file
 #
@@ -8,7 +9,13 @@ use DXDebug;
 use spot;
 
 # initialise spots file
+STDOUT->autoflush(1);
+
+print "reading in spot data ..";
+$t = time;
 $count = spot->init();
+$t = time - $t;
+print "done ($t secs)\n";
 
 dbgadd('spot');
 
@@ -18,8 +25,6 @@ $time = time;
 
 print "$count database records read in\n";
 
-STDOUT->autoflush(1);
-
 #loada();
 for (;;) {
   print "field: ";