- Timestamp:
- 2010-11-10T13:22:57+13:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r23306 r23307 441 441 $dest =~ s/[\\\/]+$//; 442 442 443 ## print STDERR "**** src = ", unicode::debug_unicode_string($src),"\n"; 443 444 # a few sanity checks 444 445 if (-e $dest) { … … 447 448 } 448 449 elsif (!-e $src) { 449 print STDERR "util::hard_link source file $srcdoes not exist\n";450 print STDERR "util::hard_link source file \"$src\" does not exist\n"; 450 451 return 1; 451 452 } 452 453 elsif (-d $src) { 453 print STDERR "util::hard_link source $srcis a directory\n";454 print STDERR "util::hard_link source \"$src\" is a directory\n"; 454 455 return 1; 455 456 }
Note:
See TracChangeset
for help on using the changeset viewer.