Robustify.

diff --git a/cdb-assign b/cdb-assign
index 5f2f44e6c7d99c100bf6d8a3bc6f7e1de51ee16e..e3184c2de62c2cf91aa4871d324f846d7a140e92 100755 (executable)
--- a/cdb-assign
+++ b/cdb-assign
@@ -11,5 +11,5 @@ while (<>) {
   m'^\s*([-\w]+)\s*=\s*(.*\S|)\s*$' or die "bad assignment `$_'\n";
   $c->insert($1, $2);
 }
-$c->finish();
+$c->finish() or die "CDB_File->finish: $!\n";
 exit 0;

diff --git a/cdb-list b/cdb-list
index b0403ea20df948becd0a1c692a60ee6af3b34a15..368da625e6ffbdaab930e9763808b1d1a364ec2d 100755 (executable)
--- a/cdb-list
+++ b/cdb-list
@@ -11,5 +11,5 @@ while (<>) {
   m'^\s*(.*\S|)\s*$';
   $c->insert($1, "");
 }
-$c->finish();
+$c->finish() or die "CDB_File->finish: $!\n";
 exit 0;