Changeset 18463 for gsdl/trunk/perllib/basebuildproc.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/basebuildproc.pm (modified) (1 diff)

gsdl/trunk/perllib/basebuildproc.pm

@@ -782 +782 @@
         $afile = &util::filename_cat($self->{'assocdir'}, $archivedir, $assoc_file->[1]);
     }
-    &util::hard_link ($assoc_file->[0], $afile);
-    }
-}
-
+    &util::hard_link ($assoc_file->[0], $afile, $self->{'verbosity'});
+    }
+}
+