From 374cdb2678866c043fa0231fbe30dd1b2ffed485 Mon Sep 17 00:00:00 2001
From: Chris Nighswonger <cnighswonger@foundations.edu>
Date: Thu, 4 Nov 2010 14:14:10 -0400
Subject: [PATCH] Fixing up a regexp to stop a trivial warn

---
 misc/migration_tools/bulkmarcimport.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl
index 2f18d5266e..3bb9ed85d9 100755
--- a/misc/migration_tools/bulkmarcimport.pl
+++ b/misc/migration_tools/bulkmarcimport.pl
@@ -206,9 +206,10 @@ RECORD: while (  ) {
             }
         } else {
             if (my $f020 = $record->field('020')) {
-                $isbn = $f020->subfield('a');
-                $isbn =~ s/-//g;
-                $f020->update('a' => $isbn);
+                if ($isbn = $f020->subfield('a')) {
+                    $isbn =~ s/-//g;
+                    $f020->update('a' => $isbn);
+                }
             }
         }
     }
-- 
2.39.5