Perl eval improvements in eg_staged_bib_overlay.
authorJason Stephenson <jason@sigio.com>
Sun, 7 Aug 2016 14:23:42 +0000 (10:23 -0400)
committerGalen Charlton <gmc@esilibrary.com>
Mon, 8 Aug 2016 18:24:06 +0000 (14:24 -0400)
commite646ed5624e97e917dff2b8fc11a3bfbaf3175e3
tree7b9d05dd76ca9780040b89f03720a62fa2cdd33b
parent3423a92f6d9a9f0eeb31682f121377a0216aa240
Perl eval improvements in eg_staged_bib_overlay.

Two changes to improve the eval conditions added in the previous
commit:

1. Both error handlers now warn with the same message:

   Record $i is bad: $@; skipping.

Thereby reporting the original message in case the user wants to try
and recover the records later.

2. If a bib record's 901$c is either missing or not numeric, die() is
called with a message to that effect.  This eliminates the Perl
warnings about exiting an eval block with next.

Signed-off-by: Jason Stephenson <jason@sigio.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
eg_staged_bib_overlay