add notes about effect of loop control statements inside

[perl5.git] / makedir.SH

diff --git a/makedir.SH b/makedir.SH
old mode 100644 (file)
new mode 100755 (executable)
index 215661a..d1650e7
--- a/makedir.SH
+++ b/makedir.SH
@@ -1,11 +1,11 @@
-case $CONFIG in
+case $CONFIGDOTSH in
 '')
     if test ! -f config.sh; then
        ln ../config.sh . || \
        ln ../../config.sh . || \
        ln ../../../config.sh . || \
        (echo "Can't find config.sh."; exit 1)
-    fi
+    fi 2>/dev/null
     . ./config.sh
     ;;
 esac
@@ -13,14 +13,10 @@ case "$0" in
 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
 esac
 echo "Extracting makedir (with variable substitutions)"
+rm -f makedir
 $spitshell >makedir <<!GROK!THIS!
 $startsh
-# $Header: makedir.SH,v 2.0 88/06/05 00:09:13 root Exp $
-# 
-# $Log:        makedir.SH,v $
-# Revision 2.0  88/06/05  00:09:13  root
-# Baseline version 2.0.
-# 
+# makedir.SH
 # 
 
 export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)