g++ wants cast

[perl5.git] / makedir.SH

diff --git a/makedir.SH b/makedir.SH
old mode 100644 (file)
new mode 100755 (executable)
index 63214ef..19a6ad6
--- a/makedir.SH
+++ b/makedir.SH
@@ -1,4 +1,4 @@
-case $CONFIG in
+case $PERL_CONFIG_SH in
 '')
     if test ! -f config.sh; then
        ln ../config.sh . || \
@@ -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 4.0 91/03/20 01:27:13 lwall Locked $
-# 
-# $Log:        makedir.SH,v $
-# Revision 4.0  91/03/20  01:27:13  lwall
-# 4.0 baseline.
-# 
+# makedir.SH
 # 
 
 export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)