Subversion Repositories DevTools

Rev

Rev 297 | Rev 361 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 297 Rev 303
Line 137... Line 137...
137 
 
 137 
 
138 
#
 138 
#
139 
#   Ensure target directory is not present
 139 
#   Ensure target directory is not present
140 
#
 140 
#
141 
$opt_subdir = $ARGV[0] unless ( $opt_subdir );
 141 
$opt_subdir = $ARGV[0] unless ( $opt_subdir );
- 
 
 142 
$opt_subdir =~ s~\\~/~g;
- 
 
 143 
 
142 
my $temp_dir = $ENV{TMP} || $ENV{TEMP};
 144 
my $temp_dir = $ENV{TMP} || $ENV{TEMP};
143 
Error ("Cannot locate TEMP directory") unless ( $temp_dir );
 145 
Error ("Cannot locate TEMP directory") unless ( $temp_dir );
144 
$temp_dir =~ s~\\~/~g;
 146 
$temp_dir =~ s~\\~/~g;
145 
Error ("TEMPDIR is not a directory" ) unless ( -d $temp_dir );
 147 
Error ("TEMPDIR is not a directory" ) unless ( -d $temp_dir );
146 
my $dest_dir = "$temp_dir/gen_cots/$opt_subdir";
 148 
my $dest_dir = "$temp_dir/gen_cots/$opt_subdir";