From: Matthew Vernon <matthew@debian.org>
Date: Mon, 19 Jul 2021 11:35:09 +0000 (+0100)
Subject: Check error() return
X-Git-Tag: archive/debian/4.34~1
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~matthewv/git?a=commitdiff_plain;h=a6b1b7d7a7283f2d74afc1752fc2b628603b3d22;p=bible-kjv.git

Check error() return

It's not very useful calling BIBLE->() without checking the output.
---

diff --git a/makeconc.pl b/makeconc.pl
index c3e5bb8..cf3edeb 100755
--- a/makeconc.pl
+++ b/makeconc.pl
@@ -55,7 +55,7 @@ while (<BIBLE>) {
 	$lines{$word} .= " " . $.;
     }
 }
-BIBLE->error();
+die $! if BIBLE->error();
 
 # Create raw concordance, listing the lines where each word occurs.