Changeset 23307


Ignore:
Timestamp:
2010-11-10T13:22:57+13:00 (12 years ago)
Author:
davidb
Message:

Slight touch-up to some error logging print statements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/util.pm

    r23306 r23307  
    441441    $dest =~ s/[\\\/]+$//;
    442442
     443##    print STDERR "**** src = ", unicode::debug_unicode_string($src),"\n";
    443444    # a few sanity checks
    444445    if (-e $dest) {
     
    447448    }
    448449    elsif (!-e $src) {
    449     print STDERR "util::hard_link source file $src does not exist\n";
     450    print STDERR "util::hard_link source file \"$src\" does not exist\n";
    450451    return 1;
    451452    }
    452453    elsif (-d $src) {
    453     print STDERR "util::hard_link source $src is a directory\n";
     454    print STDERR "util::hard_link source \"$src\" is a directory\n";
    454455    return 1;
    455456    }
Note: See TracChangeset for help on using the changeset viewer.