Fix for 20010219.013, "perlio perl -we tell goes SEGV".

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index ae55ff3..4a77415 100755 (executable)
--- 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]/);