From 56032d7ceb63ad5d63f0b842b6486a8c36eb9648 Mon Sep 17 00:00:00 2001
From: Mason James <mtj@kohaaloha.com>
Date: Wed, 27 Jun 2012 02:41:20 +1200
Subject: [PATCH] Bug 6679 - [SIGNED-OFF] fix 3 perlcritic violations in
 C4/Record.pm

Expression form of "eval" at line 358, column 5.  See page 161 of PBP.  (Severity: 5)
Expression form of "eval" at line 367, column 5.  See page 161 of PBP.  (Severity: 5)
Expression form of "eval" at line 510, column 3.  See page 161 of PBP.  (Severity: 5)

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Fixed conflict
---
 C4/Record.pm |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/C4/Record.pm b/C4/Record.pm
index 5d894fa..7ca1f98 100644
--- a/C4/Record.pm
+++ b/C4/Record.pm
@@ -379,7 +379,7 @@ sub marc2csv {
     }
 
     # Preprocessing
-    eval $preprocess if ($preprocess);
+    eval {$preprocess} if ($preprocess);
 
     my $firstpass = 1;
     if ( @$itemnumbers ) {
@@ -396,7 +396,7 @@ sub marc2csv {
     }
 
     # Postprocessing
-    eval $postprocess if ($postprocess);
+    eval {$postprocess} if ($postprocess);
 
     return $output;
 }
@@ -575,7 +575,7 @@ sub marcrecord2csv {
                         # Field processing
                         my $marcfield = $tag->{fieldtag}; # This line fixes a retrocompatibility concern
                                                           # The "processing" could be based on the $marcfield variable.
-                        eval $fieldprocessing if ($fieldprocessing);
+                        eval {$fieldprocessing} if ($fieldprocessing);
 
                         push @loop_values, $value;
                     }
-- 
1.7.9.5