From: Chip Salzenberg <chip@perl.com>
Date: Fri, 31 Jan 1997 12:23:07 +0000 (+1200)
Subject: Ask about /usr/bin/perl iff STDIN and STDERR are terminals
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05dd7c1e711be95be417c5a7f4a8d83e9ea29035;p=p5sagit%2Fp5-mst-13.2.git

Ask about /usr/bin/perl iff STDIN and STDERR are terminals
---

diff --git a/installperl b/installperl
index bbcd1c3..d4cb711 100755
--- a/installperl
+++ b/installperl
@@ -179,7 +179,8 @@ foreach $file (@corefiles) {
 
 $mainperl_is_instperl = 0;
 
-if (-w $mainperldir && ! &samepath($mainperldir, $installbin) && !$nonono) {
+if (!$nonono && -t STDIN && -t STDERR
+	&& -w $mainperldir && ! &samepath($mainperldir, $installbin)) {
     local($usrbinperl)	= "$mainperldir/perl$exe_ext";
     local($instperl)	= "$installbin/perl$exe_ext";
     local($expinstperl)	= "$binexp/perl$exe_ext";