From a46dd6a1b7a4368ee4d2965202babf5f3d098f0b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 23 Sep 2013 14:37:04 +0200 Subject: [PATCH] Bug 8015: Followup QA issues eval { $eval }; != eval $eval; my $r = q|/foo/fee/|; my @values = ("foo", "bar", "foobar"); for my $v ( @values ) { eval {"\$v =~ s$r"}; say $v; eval "\$v =~ s$r"; say $v; } will display: foo fee bar bar foobar feebar --- C4/MarcModificationTemplates.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/MarcModificationTemplates.pm b/C4/MarcModificationTemplates.pm index 2c7bb97..526ab53 100644 --- a/C4/MarcModificationTemplates.pm +++ b/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; -- 1.7.10.4