Lines Matching refs:SUBDIRS
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 ;