From 3aefb948b2e2fd0269a6527873c6962dae206c93 Mon Sep 17 00:00:00 2001 From: Martin Stenberg Date: Fri, 23 Oct 2015 15:20:37 +0200 Subject: [PATCH] Bug 14670: fix ControlStructures::ProhibitMutatingListFunctions Signed-off-by: hugo --- C4/Record.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Record.pm b/C4/Record.pm index a83550efc2..4c0009e4ab 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -880,7 +880,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); } } -- 2.39.2