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;
 	}