patch to installperl (change warn to print STDERR in sub yn)

Message-ID: <Pine.LNX.4.33.0104231018270.10985-100000@dd.tc.fluke.com>

p4raw-id: //depot/perl@9798

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;
     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]/);
     chop($answer = <STDIN>);
     $answer = $default if $answer =~ m/^\s*$/;
     ($answer =~ m/^[yY]/);