Bug 15258: Fix Perl scripts declaring unused variables

[koha.git] / cataloguing / merge.pl

diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl
index a1e56be..490eaa1 100755 (executable)
--- a/cataloguing/merge.pl
+++ b/cataloguing/merge.pl
@@ -121,7 +121,6 @@ if ($merge) {
             my @marcfields = $marcrecord->field($field->{tag});
             foreach my $marcfield (@marcfields) {
                 my $tag = $marcfield->tag();
-                my %subfields;
                 if (scalar @{$field->{subfields}}) {
                     foreach my $subfield (@{$field->{subfields}}) {
                         my @values = $marcfield->subfield($subfield);