From a3ed4895ba809704545ce2abde01b6d31ea532a6 Mon Sep 17 00:00:00 2001 From: "M. J. T. Guy" Date: Sat, 22 Jul 2000 15:02:11 +0100 Subject: [PATCH] Send all installperl messages to STDERR and be -w clean. Subject: [PATCH] Re: [ID 20000721.003] installperl stderr/stdout problem Message-Id: p4raw-id: //depot/perl@6421 --- installperl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/installperl b/installperl index 09ffc80..f296712 100755 --- a/installperl +++ b/installperl @@ -307,7 +307,7 @@ if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VM my $mainperl_is_instperl = 0; -if ($Config{installusrbinperl} eq 'define' && +if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' && !$versiononly && !$nonono && !$Is_W32 && !$Is_VMS && -t STDIN && -t STDERR && -w $mainperldir && ! samepath($mainperldir, $installbin)) { my($usrbinperl) = "$mainperldir/$perl$exe_ext"; @@ -465,7 +465,7 @@ sub yn { my($prompt) = @_; my($answer); my($default) = $prompt =~ m/\[([yn])\]\s*$/i; - print $prompt; + print STDERR $prompt; chop($answer = ); $answer = $default if $answer =~ m/^\s*$/; ($answer =~ m/^[yY]/); -- 2.7.4