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>
This commit is contained in:
Martin Stenberg 2015-10-23 15:20:37 +02:00 committed by Katrin Fischer
parent cd78927130
commit 690cd9706a
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 1 additions and 1 deletions

View File

@ -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);
}
}