started the addition of help files

[spider.git] / cmd / dx.pl

diff --git a/cmd/dx.pl b/cmd/dx.pl
index cbf003c0d825cd5762ca3755625fe397af4aad34..a966ff6b01ccd56c304ea6c24e5e5df0385bd72a 100644 (file)
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -19,11 +19,11 @@ my @out;
 if ($f[0] =~ /[A-Za-z]/) {
   $spotter = uc $f[0];
   $freq = $f[1];
-  $spotted = $f[2];
-  $line =~ s/^$f[0]\s+$freq\s+$spotted\s*//;
+  $spotted = uc $f[2];
+  $line =~ s/^$f[0]\s+$f[1]\s+$f[2]\s*//;
 } else {
   $freq = $f[0];
-  $spotted = $f[1]; 
+  $spotted = uc $f[1]; 
   $line =~ s/^$f[0]\s+$f[1]\s*//;
 }