perl 5.0 alpha 9perl-5a9

[editor's note: the sparc executables have not been included,
and emacs backup files have been removed]

1 files changed, 5 insertions, 5 deletions

diff --git a/makedir b/makedir
index 343c78d3b0..250bdd5fb0 100755
--- a/makedir
+++ b/makedir
@@ -1,5 +1,5 @@
 #!/bin/sh
-# $RCSfile: makedir.SH,v 28453Revision: 4.1 28453Date: 92/08/07 18:24:23 $
+# $RCSfile: makedir.SH,v 3314Revision: 4.1 3314Date: 92/08/07 18:24:23 $
 # 
 # $Log:	makedir.SH,v $
 # Revision 4.1  92/08/07  18:24:23  lwall
@@ -16,7 +16,7 @@ export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed mysel
 
 case $# in
   0)
-    echo "makedir pathname filenameflag"
+    /bin/echo "makedir pathname filenameflag"
     exit 1
     ;;
 esac
@@ -29,7 +29,7 @@ esac
 
 : strip last component if it is to be a filename
 case X$2 in
-  X1) set `echo $1 | sed 's:\(.*\)/[^/]*$:\1:'` ;;
+  X1) set `/bin/echo $1 | /bin/sed 's:\(.*\)/[^/]*$:\1:'` ;;
   *)  set $1 ;;
 esac
 
@@ -43,7 +43,7 @@ while true ; do
     case $1 in
     */*)
 	list="$1 $list"
-	set `echo $1 | sed 's:\(.*\)/:\1 :'`
+	set `echo $1 | /bin/sed 's:\(.*\)/:\1 :'`
 	;;
     *)
 	break
@@ -54,5 +54,5 @@ done
 set $list
 
 for dir do
-    mkdir $dir >/dev/null 2>&1
+    /bin/mkdir $dir >/dev/null 2>&1
 done