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:
parent
cd78927130
commit
690cd9706a
|
|
@ -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);
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue