perl 4.0 patch 13: patch #11, continued

See patch #11.

1 files changed, 6 insertions, 3 deletions

diff --git a/doSH b/doSH
index 4b02784d79..ec3a1fc286 100644
--- 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