From: David Dyck <david.dyck@fluke.com>
Date: Mon, 23 Apr 2001 10:19:46 +0000 (-0700)
Subject: patch to installperl (change warn to print STDERR in sub yn)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=802cdca01593c620897cb1a2d2f2f9cf41881381;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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]/);