perl 4.0 patch 14: patch #11, continued

[p5sagit/p5-mst-13.2.git] / doSH

diff --git a/doSH b/doSH
index 4b02784..ec3a1fc 100644 (file)
--- a/doSH
+++ b/doSH
@@ -3,6 +3,8 @@
 : if this fails, just run all the .SH files by hand
 . ./config.sh
 
+rm -f x2p/config.sh
+
 echo " "
 echo "Doing variable substitutions on .SH files..."
 set x `awk '{print $1}' <MANIFEST | grep '\.SH'`
@@ -21,16 +23,17 @@ for file in $*; do
     */*)
        dir=`expr X$file : 'X\(.*\)/'`
        file=`expr X$file : 'X.*/\(.*\)'`
-       (cd $dir && . $file)
+       (cd $dir && . ./$file)
        ;;
     *)
-       . $file
+       . ./$file
        ;;
     esac
 done
 if test -f config.h.SH; then
     if test ! -f config.h; then
        : oops, they left it out of MANIFEST, probably, so do it anyway.
-       . config.h.SH
+       . ./config.h.SH
     fi
 fi
+exit 0