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

Timestamp:

1999-12-07T10:47:54+13:00 (24 years ago)

Author:

sjboddie

Message:

hard_link returns if link destination already exists

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -264 +264 @@
 
     # a few sanity checks
-    if (!-e $src) {
+    if (-e $dest) {
+    # destination file already exists
+    return;
+    }
+    elsif (!-e $src) {
     print STDERR "util::hard_link source file $src does not exist\n";
     return;