From 92be124da048d3003a8ac77f18adbec4ef4725be Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Mon, 18 Aug 2008 17:58:44 +0000 Subject: [PATCH] bad exception handling. dividing upside down. oop. --- fingerprinter | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/fingerprinter b/fingerprinter index 65e98dc..4118fd3 100755 --- a/fingerprinter +++ b/fingerprinter @@ -263,7 +263,7 @@ sub dump_exception { print XF "Missing item_form. " unless ($marc->{item_form}); print XF "Missing date1. " unless (defined $marc->{date1}); print XF "Invalid date1: ", $marc->{date1} - unless ($marc->{date1} =~ /\d{4}/); + unless (defined $marc->{date1} and $marc->{date1} =~ /\d{4}/); print XF "Missing record_type. " unless ($marc->{record_type}); print XF "Missing bib_lvl. " unless ($marc->{bib_lvl}); print XF "Missing title. " unless ($marc->{title}); @@ -316,7 +316,7 @@ sub initialize { sub progress_ticker { return if $conf->{quiet}; - printf("> %d (%d/s)\r", $count, ((time - $start) / $count)) + printf("> %d (%d/s)\r", $count, ($count / (time - $start))) if ($count % 100 == 0); } -- 1.7.2.5