From 073fc6462a48ca38e24c28a37ead7e824c8ee980 Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 13 May 2009 14:48:48 +0000
Subject: [PATCH] fix for undef value in regex

---
 fingerprinter |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/fingerprinter b/fingerprinter
index 098747d..4386aee 100755
--- a/fingerprinter
+++ b/fingerprinter
@@ -88,7 +88,7 @@ sub populate_marc {
     }
     unless ($marc{date1} and $marc{date1} =~ /\d{4}/) {
         my $my_260 = $record->field('260');
-        if ($my_260) {
+        if ($my_260 and $my_260->subfield('c')) {
             my $date1 = $my_260->subfield('c');
             $date1 =~ s/\D//g;
             if (defined $date1 and $date1 =~ /\d{4}/) {
-- 
1.7.2.5