1 files changed, 1 insertions, 1 deletions
diff --git a/installperl b/installperl
index ae55ff3f48..4a77415d91 100755
--- a/installperl
+++ b/installperl
@@ -498,7 +498,7 @@ sub yn {
     my($prompt) = @_;
     my($answer);
     my($default) = $prompt =~ m/\[([yn])\]\s*$/i;
-    warn $prompt;
+    print STDERR $prompt;
     chop($answer = <STDIN>);
     $answer = $default if $answer =~ m/^\s*$/;
     ($answer =~ m/^[yY]/);