Commit 567e811f authored by Côme Bernigaud's avatar Côme Bernigaud Committed by Benoit Mortier
Browse files

Fixes #3470 Fixed errors when <STDIN> is undefined

parent 3dae32d7
...@@ -97,9 +97,12 @@ sub ask_user_input { ...@@ -97,9 +97,12 @@ sub ask_user_input {
do do
{ {
$answer = <STDIN>; if ($answer = <STDIN>) {
chomp $answer; chomp $answer;
$answer =~ s/^\s+|\s+$//g; $answer =~ s/^\s+|\s+$//g;
} else {
$answer = "";
}
} while (($answer eq "") && (not defined $default_answer)); } while (($answer eq "") && (not defined $default_answer));
if ($answer eq "") { if ($answer eq "") {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment