From 374cdb2678866c043fa0231fbe30dd1b2ffed485 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger 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