Changeset 38492 for main/trunk
- Timestamp:
- 2023-12-14T10:12:13+13:00 (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/FileUtils.pm
r37248 r38492 408 408 if (! -d $dest) 409 409 { 410 my $store_umask = umask(0002); 411 my $mkdir_status = mkdir($dest, 0777); 412 410 my $mkdir_status = &makeAllDirectories($dest); 413 411 if (!$mkdir_status) { 414 print STDERR "$!\n";415 print STDERR "FileUtils::_copyFilesRecursiveGeneral() failed to create directory $dest\n";416 umask($store_umask);417 418 412 return 0; 419 413 } 420 umask($store_umask); 421 } 414 } 415 416 # my $store_umask = umask(0002); 417 # my $mkdir_status = mkdir($dest, 0777); 418 419 # if (!$mkdir_status) { 420 # print STDERR "$!\n"; 421 # print STDERR "FileUtils::_copyFilesRecursiveGeneral() failed to create directory $dest\n"; 422 # umask($store_umask); 423 424 # return 0; 425 # } 426 # umask($store_umask); 427 # } 422 428 423 429 my $had_an_error = 0;
Note:
See TracChangeset
for help on using the changeset viewer.