Changeset 23307 for main/trunk/greenstone2

Timestamp:

2010-11-10T13:22:57+13:00 (13 years ago)

Author:

davidb

Message:

Slight touch-up to some error logging print statements

File:

• main/trunk/greenstone2/perllib/util.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/util.pm

@@ -441 +441 @@
     $dest =~ s/[\\\/]+$//;
 
+##    print STDERR "**** src = ", unicode::debug_unicode_string($src),"\n";
     # a few sanity checks
     if (-e $dest) {
@@ -447 +448 @@
     }
     elsif (!-e $src) {
-    print STDERR "util::hard_link source file $src does not exist\n";
+    print STDERR "util::hard_link source file \"$src\" does not exist\n";
     return 1;
     }
     elsif (-d $src) {
-    print STDERR "util::hard_link source $src is a directory\n";
+    print STDERR "util::hard_link source \"$src\" is a directory\n";
     return 1;
     }