Check error() return

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

diff --git a/makeconc.pl b/makeconc.pl
index c3e5bb810c3c4cf7145ff40f18a39fa88688b245..cf3edebca39107112170f10f710d39902c504b07 100755 (executable)
--- 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.