From 5cfb693a826c8497cfb7c1608ff02530c29f7e7d Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 2 Jun 2014 11:30:48 -0300 Subject: [PATCH] Bug 12151: Remove use of smartmatch operator in tools/batchMod.pl The '~~' smartmatch operator is used to compare MARC::Field->subfield(code) (i.e. a string) and the text element of each MARC::Field->subfields() which is also plain text. Substituting '~~' for 'eq' should be harmless then. Regards To+ Sponsored-by: Universidad Nacional de Cordoba Signed-off-by: Kyle M Hall Signed-off-by: Katrin Fischer Passes QA script and tests. Tested batch modification of items, no problems found. Signed-off-by: Tomas Cohen Arazi --- tools/batchMod.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/batchMod.pl b/tools/batchMod.pl index 41d15cb363..bda2effe4d 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -580,7 +580,7 @@ sub UpdateMarcWith { foreach my $subfield ( $fieldfrom->subfields() ) { foreach my $field_to_update ( @fields_to ) { if ( $subfield->[1] ) { - unless ( $field_to_update->subfield($subfield->[0]) ~~ $subfield->[1] ) { + unless ( $field_to_update->subfield($subfield->[0]) eq $subfield->[1] ) { $modified++; $field_to_update->update( $subfield->[0] => $subfield->[1] ); } -- 2.20.1