diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-02-01 00:23:07 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-04 17:47:00 +1200 |
| commit | 05dd7c1e711be95be417c5a7f4a8d83e9ea29035 (patch) | |
| tree | ae1a22db5148eb164e837e8c0b740b8b5f0d82cc /installperl | |
| parent | 24fef2a7cd8a0fa32e8f3397b46c72d088f692bc (diff) | |
| download | perl-05dd7c1e711be95be417c5a7f4a8d83e9ea29035.tar.gz | |
Ask about /usr/bin/perl iff STDIN and STDERR are terminals
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/installperl b/installperl index bbcd1c383a..d4cb71185a 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"; |