From a46dd6a1b7a4368ee4d2965202babf5f3d098f0b Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
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