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

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -627 +627 @@
         $filename = &util::filename_cat($working_dir, $afile);
 
-        &util::hard_link ($real_filename, $filename);
+        &util::hard_link ($real_filename, $filename, $self->{'verbosity'});
         
         $doc_obj->add_utf8_metadata ($doc_obj->get_top_section(),