Changeset 23307

Show
Ignore:
Timestamp:
10.11.2010 13:22:57 (9 years ago)
Author:
davidb
Message:

Slight touch-up to some error logging print statements

Files:
1 modified

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    }