New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
installperl stderr/stdout problem #2246
Comments
From eschrich@hcp.med.harvard.eduCreated by eschrich@hcp.med.harvard.eduWhen installing perl 5.6.0 using 'make install', we attempted to log the Line 311 of installperl checks if STDERR is a tty (and STDIN) in case of Should the script check -t STDOUT instead of STDERR? Perl Info
|
From [Unknown Contact. See original ticket]Steven Eschrich <eschrich@hcp.med.harvard.edu> wrote
It should cretainly be consistent, and write the prompt to the same handle I personally prefer changing it to send the prompt to STDERR. Patch for perl-current attached, which also fixes a -w uncleanness. Mike Guy Inline Patch--- ./installperl.orig Sat Jul 22 13:55:36 2000
+++ ./installperl Sat Jul 22 13:56:39 2000
@@ -307,7 +307,7 @@
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 @@
my($prompt) = @_;
my($answer);
my($default) = $prompt =~ m/\[([yn])\]\s*$/i;
- print $prompt;
+ print STDERR $prompt;
chop($answer = <STDIN>);
$answer = $default if $answer =~ m/^\s*$/;
($answer =~ m/^[yY]/);
End of patch |
From [Unknown Contact. See original ticket]
Doing it that way tends to lose information. |
From @jhi
Thanks! |
@iabyn - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#3562 (status was 'resolved')
Searchable as RT3562$
The text was updated successfully, but these errors were encountered: