Changeset 27491
- Timestamp:
- 2013-05-28T11:33:26+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm
r27481 r27491 409 409 # use / for the directory separator, remove duplicate and 410 410 # trailing slashes 411 &sanitizePath($raw_dir);411 $raw_dir = &sanitizePath($raw_dir); 412 412 # ensure the directory doesn't already exist 413 413 if (&directoryExists($raw_dir)) … … 415 415 return 0; 416 416 } 417 if ($raw_dir =~ /^(.+?:\/\/) (.*)/)417 if ($raw_dir =~ /^(.+?:\/\/)?(.*)/) 418 418 { 419 419 my $dirsofar = ''; … … 430 430 $dirsofar .= $dirname; 431 431 next if $dirname =~ /^(|[a-z]:)$/i; 432 if (! -e $dirsofar)432 if (!&directoryExists($dirsofar)) 433 433 { 434 434 my $mkdir_ok = &makeDirectory($dirsofar);
Note:
See TracChangeset
for help on using the changeset viewer.