From 0194e69c5f172814f0836b1196418e9134b715d8 Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Sun, 16 Mar 2003 22:18:03 +0000
Subject: [PATCH] Fixed bug #178

---
 misc/Install.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index 055800c3ed..1886c87f26 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -506,7 +506,7 @@ sub showmessage {
 	my $response='\0';
 	my $options=$1;
 	until ($options=~/$response/) {
-	    ($defaultresponse) || ($defaultresponse=substr($options,0,1));
+	    (defined($defaultresponse)) || ($defaultresponse=substr($options,0,1));
 	    $response=<STDIN>;
 	    chomp $response;
 	    (length($response)) || ($response=$defaultresponse);
-- 
2.39.5