From 1efbd7eadcddd2c5552e6791954bf81b7c272aa0 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 5 Nov 2000 16:53:01 +0000
Subject: [PATCH] fixed problem with 'by'

---
 cmd/show/dx.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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
-- 
2.34.1