From 9b85fd2b097fff0669c16dd3a6568d1fcb059356 Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Sun, 16 Mar 2003 22:06:54 +0000
Subject: [PATCH] Fixed bug #175.

---
 misc/Install.pm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index 4fa90f6b28..055800c3ed 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -510,11 +510,18 @@ sub showmessage {
 	    $response=<STDIN>;
 	    chomp $response;
 	    (length($response)) || ($response=$defaultresponse);
-	    unless ($options=~/$response/) {
-		($noclear) || (system('clear'));
-		print "Invalid Response.  Choose from [$options].\n\n";
-		print $message;
-	    }
+            if ( $response=~/.*[\:\(\)\^\$\*\!\\].*/ ) {
+                ($noclear) || (system('clear'));
+                print "Response contains invalid characters.  Choose from [$options].\n\n";
+                print $message;
+                $response='\0';
+            } else {
+                unless ($options=~/$response/) {
+                    ($noclear) || (system('clear'));
+                    print "Invalid Response.  Choose from [$options].\n\n";
+                    print $message;
+                }
+            }
 	}
 	return $response;
     } elsif ($responsetype =~/^free$/i) {
-- 
2.39.5