Changeset 22076 for main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm

Timestamp:

2010-05-12T10:29:16+12:00 (14 years ago)

Author:

sjm84

Message:

Added error messages to these files that are printed when a write handle cannot be opened

File:

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

main/trunk/greenstone2/perllib/dbutil/gdbmtxtgz.pm

@@ -53 +53 @@
   if (!open($infodb_file_handle, "| gzip - > \"$infodb_file_path\""))
   {
-    return undef;
+      print STDERR "Error: Failed to open pipe to gzip - > \"$infodb_file_path\"\n";
+      print STDERR "       $!\n";
+      return undef;
   }