From: minima <minima>
Date: Sun, 5 Nov 2000 16:53:01 +0000 (+0000)
Subject: fixed problem with 'by'
X-Git-Tag: R_1_45~38
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=1efbd7eadcddd2c5552e6791954bf81b7c272aa0;p=spider.git

fixed problem with 'by'
---

diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl
index 675fb8d0..380328ee 100644
--- a/cmd/show/dx.pl
+++ b/cmd/show/dx.pl
@@ -89,7 +89,7 @@ if ($pre) {
 	$pre .= '*' unless $pre =~ /[\*\?\[]/o;
 	$pre = shellregex($pre);
 	$expr = "\$f1 =~ m{$pre}";
-	$pre =~ s/\^//;
+	$pre =~ s/[\^\$]//g;
 	$hint = "m{\U$pre}";
 }
   
@@ -122,9 +122,10 @@ if ($info) {
 if ($spotter) {
 	$expr .= " && " if $expr;
 	$spotter = shellregex($spotter);
-	$expr .= "\$f4 =~ m{$spotter}";
+	$expr .= "\$f4 =~ m{\U$spotter}";
 	$hint .= " && " if $hint;
-	$hint .= "m{$spotter}";
+	$spotter =~ s/[\^\$]//g;
+	$hint .= "m{\U$spotter}";
 }
 
 # qsl requests