@@ -, +, @@ eval {"\$v =~ s$r"}; say $v; eval "\$v =~ s$r"; say $v; --- C4/MarcModificationTemplates.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/MarcModificationTemplates.pm +++ a/C4/MarcModificationTemplates.pm @@ -563,7 +563,7 @@ sub ModifyRecordWithTemplate { C4::Koha::Log("eval $eval") if DEBUG >= 2; warn("eval $eval") if DEBUG >= 2; - eval {$eval}; + eval $eval; C4::Koha::Log( $record->as_formatted() ) if DEBUG >= 10; warn( $record->as_formatted() ) if DEBUG >= 10; --