Changeset 3628 for trunk/gsdl/perllib/util.pm

Timestamp:

2002-12-10T15:18:12+13:00 (21 years ago)

Author:

jrm21

Message:

hard_link returns 1 on error. (But not if it attempts to copy - always
returns 0!!)

File:

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

trunk/gsdl/perllib/util.pm

@@ -288 +288 @@
     elsif (!-e $src) {
     print STDERR "util::hard_link source file $src does not exist\n";
-    return;
+    return 1;
     }
     elsif (-d $src) {
     print STDERR "util::hard_link source $src is a directory\n";
-    return;
+    return 1;
     }
 
@@ -307 +307 @@
     &File::Copy::copy ($src, $dest);
     }
+    return 0;
 }