g++ wants cast

[perl5.git] / makedir.SH

diff --git a/makedir.SH b/makedir.SH
old mode 100644 (file)
new mode 100755 (executable)
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 \$\$)