Changeset 22076 for main/trunk/greenstone2/perllib/dbutil/jdbm.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/jdbm.pm (modified) (1 diff)

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

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