solenv/bin/mkdir.pl

50         @SUBDIRS = split "/", $ARGV[0] ;
53         if ( $SUBDIRS[0] eq "" ) {
55             shift @SUBDIRS ;
58         if ( $#SUBDIRS > 1 ) {
59             if ( $SUBDIRS[1] eq "" ) {
60                 if ( $SUBDIRS[0] =~ /\w/ ) {
61                     chdir "$SUBDIRS[0]:\\" ;
62                     shift @SUBDIRS ;
63                     shift @SUBDIRS ;
68         while (@SUBDIRS) {
69             if ( -e $SUBDIRS[0] ) {
70                 if ( ! -d $SUBDIRS[0] ) {
75                 mkdir $SUBDIRS[0], $MODE or die "Can't create directory $SUBDIRS[0]"
77             chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ;
78             shift @SUBDIRS ;