From a8fceb3d5f7f0910d0dde6e8036e881cf91a88c9 Mon Sep 17 00:00:00 2001
From: Alex Arnaud <alex.arnaud@biblibre.com>
Date: Wed, 10 Jun 2015 14:37:49 +0200
Subject: [PATCH] Bug 13705 - Fix QA comments

---
 C4/ZebraIndex.pm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/ZebraIndex.pm b/C4/ZebraIndex.pm
index 75f8944..8a81ac6 100644
--- a/C4/ZebraIndex.pm
+++ b/C4/ZebraIndex.pm
@@ -381,7 +381,7 @@ sub _fix_unimarc_100 {
     my $marc = shift;
 
     my $string;
-    my $string = $marc->subfield(100, 'a');
+    $string = $marc->subfield(100, 'a');
     if ( defined($string) and length($string) == 36 ) {
         my $f100 = $marc->field(100);
         $marc->delete_field($f100);
-- 
1.7.10.4