From 690cd9706abeccbf3128fbd25a5a97c14a6a36be Mon Sep 17 00:00:00 2001
From: Martin Stenberg <martin@xinxidi.net>
Date: Fri, 23 Oct 2015 15:20:37 +0200
Subject: [PATCH] Bug 14670: fix
 ControlStructures::ProhibitMutatingListFunctions

Signed-off-by: Hugo Agud <hagud@orex.es>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
---
 C4/Record.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Record.pm b/C4/Record.pm
index 44e1b7d6a7..644c3b61ca 100644
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -878,7 +878,7 @@ sub marc2cites {
             if($author =~ /([^,]+),?(.*)/) {
                 my %a;
                 ($a{'surname'} = $1) =~ s/$re_clean//g;
-                $a{'forenames'} = [map {s/$re_clean//g;$_} split ' ', $2];
+                $a{'forenames'} = [map {my $t=$_;$t=~s/$re_clean//g;$t} split ' ', $2];
                 push(@authors, \%a);
             }
         }