Robustify.

[misc] / cdb-list

diff --git a/cdb-list b/cdb-list
index b0403ea..368da62 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;