Index: solenv/bin/mkdir.pl
===================================================================
RCS file: /cvs/tools/solenv/bin/mkdir.pl,v
retrieving revision 1.1
diff -u -r1.1 mkdir.pl
--- solenv/bin/mkdir.pl	10 Oct 2000 17:41:22 -0000	1.1
+++ solenv/bin/mkdir.pl	1 Mar 2003 09:20:58 -0000
@@ -9,15 +9,19 @@
 #
 # Copyright (c) 2000 Sun Microsystems, Inc.
 
+use Cwd;
+
+$currdir = cwd;
+
 $MODE = 00777 ;
 
-while ( $#ARGV > 0 ) {
+while ( $#ARGV >= 0 ) {
 	if ( $ARGV[0] eq "-mode" ) {
 		$MODE = oct $ARGV[1] ;
 		shift @ARGV ;
-		} ;
-	shift @ARGV ;
-	} ;		
+		shift @ARGV ;
+		}
+	else {
 
 $ARGV[0] =~ s?\\|:?/?g ;
 @SUBDIRS = split "/", $ARGV[0] ;
@@ -50,3 +54,8 @@
 	chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ;
 	shift @SUBDIRS ;
 	} ;
+
+	shift @ARGV ;
+	} ;
+	chdir $currdir;
+}