From 802cdca01593c620897cb1a2d2f2f9cf41881381 Mon Sep 17 00:00:00 2001
From: David Dyck <david.dyck@fluke.com>
Date: Mon, 23 Apr 2001 03:19:46 -0700
Subject: 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
---
 installperl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'installperl')

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]/);
-- 
cgit v1.2.1