The keywords given and when are flagged experimental
in perl 5.18 and subject to change. This patch
replaces the construct by an if/elsif
To test:
[1] Verify that prove -v t/SimpleMARC.t passes.
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
$modifiers .= $modifier
if grep {/$modifier/} @available_modifiers;
}
$modifiers .= $modifier
if grep {/$modifier/} @available_modifiers;
}
- foreach my $value ( @values ) {
- for ( $modifiers ) {
- when ( /^(ig|gi)$/ ) {
+ foreach my $value (@values) {
+ if ( $modifiers =~ m/^(ig|gi)$/ ) {
$value =~ s/$regex->{search}/$regex->{replace}/ig;
$value =~ s/$regex->{search}/$regex->{replace}/ig;
+ }
+ elsif ( $modifiers eq 'i' ) {
$value =~ s/$regex->{search}/$regex->{replace}/i;
$value =~ s/$regex->{search}/$regex->{replace}/i;
+ }
+ elsif ( $modifiers eq 'g' ) {
$value =~ s/$regex->{search}/$regex->{replace}/g;
$value =~ s/$regex->{search}/$regex->{replace}/g;
$value =~ s/$regex->{search}/$regex->{replace}/;
$value =~ s/$regex->{search}/$regex->{replace}/;
}
}
update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values );
}
}
update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values );