From 9fb607fe1230073a43fb35621b2faa91184fafc8 Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Mon, 18 Feb 2019 01:30:13 +0000
Subject: [PATCH] scstadmin: Check $answer before using it

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@7955 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scstadmin | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index 60dcfb0da..3b10e9b6c 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -5929,7 +5929,8 @@ sub prompt {
 	  "are you sure you wish to continue (y/[n]) ? ";
 	my $answer = <STDIN>;
 
-	if (($answer =~ /^y$/i) || ($answer =~ /^yes$/i)) {
+	if (defined($answer) &&
+	    (($answer =~ /^y$/i) || ($answer =~ /^yes$/i))) {
 		return FALSE;
 	}