This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 4.0 patch 6: patch #4, continued
[perl5.git] / doSH
1 #!/bin/sh
2
3 : if this fails, just run all the .SH files by hand
4 . ./config.sh
5
6 echo " "
7 echo "Doing variable substitutions on .SH files..."
8 set x `awk '{print $1}' <MANIFEST | grep '\.SH'`
9 shift
10 case $# in
11 0) set x *.SH; shift;;
12 esac
13 if test ! -f $1; then
14     shift
15 fi
16 for file in $*; do
17     set X
18     shift
19     chmod +x $file
20     case "$file" in
21     */*)
22         dir=`expr X$file : 'X\(.*\)/'`
23         file=`expr X$file : 'X.*/\(.*\)'`
24         (cd $dir && . $file)
25         ;;
26     *)
27         . $file
28         ;;
29     esac
30 done
31 if test -f config.h.SH; then
32     if test ! -f config.h; then
33         : oops, they left it out of MANIFEST, probably, so do it anyway.
34         . config.h.SH
35     fi
36 fi