From 5bb7ffa02685c60be44512510b53710a8e43c892 Mon Sep 17 00:00:00 2001
From: Tomas Cohen Arazi <tomascohen@gmail.com>
Date: Tue, 26 May 2015 14:16:06 -0300
Subject: [PATCH] Revert "Bug 6679: Fix 3 perlcritic violations in
 C4/Record.pm"

This reverts commit a04e8a8bfcff1d6c8e09a98086f108fac76d6e2d.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 C4/Record.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/C4/Record.pm b/C4/Record.pm
index 7ca1f98d78..5d894fa85e 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;
                     }
-- 
2.39.5