Changeset 27508 for main/trunk/greenstone2/perllib/FileUtils.pm

Timestamp:

2013-05-29T19:26:27+12:00 (11 years ago)

Author:

ak19

Message:

closeFileHandle() should deal with the case of the file not existing.

File:

• main/trunk/greenstone2/perllib/FileUtils.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/FileUtils.pm

@@ -87 +87 @@
 {
   my ($path, $fh_ref) = @_;
-  close($$fh_ref);
+  close($$fh_ref) if &fileExists($$fh_ref);
 }
 ## closeFileHandle()