From 773d6294a511631a12a8ececb73023aa01443925 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 8 Nov 2002 16:46:12 +0000
Subject: [PATCH] fix possible dos in dx command

---
 Changes   | 1 +
 cmd/dx.pl | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 48118ace..570c0207 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 08Nov02=======================================================================
 1. made some small mods to grepdbg and spot2csv.pl
+2. fix a possible DOS in dx command
 07Nov02=======================================================================
 1. allow three digit longitudes
 2. make a small change to see if messages now stay in place.
diff --git a/cmd/dx.pl b/cmd/dx.pl
index eefbb860..20046781 100644
--- a/cmd/dx.pl
+++ b/cmd/dx.pl
@@ -35,7 +35,7 @@ return (1, $self->msg('dx2')) unless @f >= 2;
 
 if ($f[0] =~ /^by$/i) {
     $spotter = uc $f[1];
-    $line =~ s/^\s*$f[0]\s+$f[1]\s+//;
+    $line =~ s/^\s*\Q$f[0]\s+\Q$f[1]\s+//;
 	$line = $f[2];
 	@f = split /\s+/, $line;
 	return (1, $self->msg('dx2')) unless @f >= 2;
-- 
2.43.0