From 1efbd7eadcddd2c5552e6791954bf81b7c272aa0 Mon Sep 17 00:00:00 2001 From: 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.43.0