From dc89fb5b84201ca5652ff9f9ff3da8930239274a Mon Sep 17 00:00:00 2001
Message-Id: <dc89fb5b84201ca5652ff9f9ff3da8930239274a.1746314790.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sat, 4 Oct 2003 20:47:36 +0000
Subject: [PATCH] Robustify.
Organization: Straylight/Edgeware

From: mdw <mdw>

---
 cdb-assign | 2 +-
 cdb-list   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cdb-assign b/cdb-assign
index 5f2f44e..e3184c2 100755
--- 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 b0403ea..368da62 100755
--- 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;
-- 
[mdw]