X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a687059cbaf2c6fdccb5e0fae2aee80ec15625a8..72bfe1b2b35945ea3c95d9b94ae2908121292236:/makedir.SH

diff --git a/makedir.SH b/makedir.SH
old mode 100644
new mode 100755
index 6064482..19a6ad6
--- a/makedir.SH
+++ b/makedir.SH
@@ -1,11 +1,11 @@
-case $CONFIG in
+case $PERL_CONFIG_SH 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,13 +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 3.0 89/10/18 15:20:27 lwall Locked $
-# 
-# $Log:	makedir.SH,v $
-# Revision 3.0  89/10/18  15:20:27  lwall
-# 3.0 baseline
+# makedir.SH
 # 
 
 export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)