Changeset 25579 for main/trunk/greenstone2/perllib/util.pm
- Timestamp:
- 2012-05-11T19:23:42+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r25578 r25579 190 190 opendir(DIR, "$src_dir"); 191 191 my @files= readdir(DIR); 192 close(DIR); 192 close(DIR); 193 193 194 194 my @full_path_files = (); … … 197 197 unless($file eq "." || $file eq "..") { 198 198 199 my $dest_subdir = &filename_cat($dest_dir, $file); # $file stillrelative path199 my $dest_subdir = &filename_cat($dest_dir, $file); # $file is still a relative path 200 200 201 201 # construct absolute paths … … 206 206 # then a simple move operation will fail (definitely on Windows). 207 207 if(-d $file && -d $dest_subdir) { 208 print STDERR "**** $file is a directory also existing in target,to be copied to $dest_subdir\n";208 #print STDERR "**** $file is a directory also existing in target, its contents to be copied to $dest_subdir\n"; 209 209 &mv_dir_contents($file, $dest_subdir); 210 210 … … 212 212 if(&is_dir_empty($file)) { 213 213 if (!rmdir $file) { 214 print STDERR " util::mv_dir_contents couldn't remove directory $file\n";214 print STDERR "ERROR. util::mv_dir_contents couldn't remove directory $file\n"; 215 215 } 216 216 } else { # error
Note:
See TracChangeset
for help on using the changeset viewer.