This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
allow Configure -S to run non-interactively (spotted by Greg Hudson
authorGurusamy Sarathy <gsar@cpan.org>
Fri, 28 Apr 2000 03:47:29 +0000 (03:47 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Fri, 28 Apr 2000 03:47:29 +0000 (03:47 +0000)
<ghudson@mit.edu>)

p4raw-id: //depot/perl@5980

Configure

index 9538137..7c5c134 100755 (executable)
--- a/Configure
+++ b/Configure
@@ -1341,10 +1341,15 @@ esac
 case "$fastread$alldone" in
 yescont|yesexit) ;;
 *)
-       if test ! -t 0; then
-               echo "Say 'sh Configure', not 'sh <Configure'"
-               exit 1
-       fi
+       case "$extractsh" in
+       true) ;;
+       *)
+               if test ! -t 0; then
+                       echo "Say 'sh Configure', not 'sh <Configure'"
+                       exit 1
+               fi
+               ;;
+       esac
        ;;
 esac