diff options
| author | David Dyck <david.dyck@fluke.com> | 2001-04-23 03:19:46 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-23 21:40:07 +0000 |
| commit | 802cdca01593c620897cb1a2d2f2f9cf41881381 (patch) | |
| tree | 9910c26f2a538ae3f2bcf51286376d37c4f7ba32 /installperl | |
| parent | 2ae52c40fdb2498667a57e8f5e2d6532b0aad34f (diff) | |
| download | perl-802cdca01593c620897cb1a2d2f2f9cf41881381.tar.gz | |
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
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 2 |
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]/); |