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

Timestamp:

2009-02-05T10:06:24+13:00 (15 years ago)

Author:

davidb

Message:

Warning about file copying in event that a hard link operation is not supported altered to only appear if verbosity > 2

File:

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

gsdl/trunk/perllib/util.pm

@@ -358 +358 @@
 # make hard link to file if supported by OS, otherwise copy the file
 sub hard_link {
-    my ($src, $dest) = @_;
+    my ($src, $dest, $verbosity) = @_;
 
     # remove trailing slashes from source and destination files
@@ -386 +386 @@
 
     } elsif (!link($src, $dest)) {
-    print STDERR "util::hard_link: unable to create hard link. ";
-    print STDERR " Attempting to copy file: $src -> $dest\n";
+    if ((!defined $verbosity) || ($verbosity>2)) {
+        print STDERR "util::hard_link: unable to create hard link. ";
+        print STDERR " Copying file: $src -> $dest\n";
+    }
     &File::Copy::copy ($src, $dest);
     }