1 files changed, 0 insertions, 68 deletions
diff --git a/contrib/perl5/makedir.SH b/contrib/perl5/makedir.SH
deleted file mode 100755
index d1650e7..0000000
--- a/contrib/perl5/makedir.SH
+++ /dev/null
@@ -1,68 +0,0 @@
-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 2>/dev/null
-    . ./config.sh
-    ;;
-esac
-case "$0" in
-*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
-esac
-echo "Extracting makedir (with variable substitutions)"
-rm -f makedir
-$spitshell >makedir <<!GROK!THIS!
-$startsh
-# makedir.SH
-# 
-
-export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh \$0; kill \$\$)
-
-case \$# in
-  0)
-    $echo "makedir pathname filenameflag"
-    exit 1
-    ;;
-esac
-
-: guarantee one slash before 1st component
-case \$1 in
-  /*) ;;
-  *)  set ./\$1 \$2 ;;
-esac
-
-: strip last component if it is to be a filename
-case X\$2 in
-  X1) set \`$echo \$1 | $sed 's:\(.*\)/[^/]*\$:\1:'\` ;;
-  *)  set \$1 ;;
-esac
-
-: return reasonable status if nothing to be created
-if $test -d "\$1" ; then
-    exit 0
-fi
-
-list=''
-while true ; do
-    case \$1 in
-    */*)
-	list="\$1 \$list"
-	set \`echo \$1 | $sed 's:\(.*\)/:\1 :'\`
-	;;
-    *)
-	break
-	;;
-    esac
-done
-
-set \$list
-
-for dir do
-    $mkdir \$dir >/dev/null 2>&1
-done
-!GROK!THIS!
-$eunicefix makedir
-chmod +x makedir