Revert "Bug 6679: Fix 3 perlcritic violations in C4/Record.pm"

This reverts commit a04e8a8bfcff1d6c8e09a98086f108fac76d6e2d.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/Record.pm b/C4/Record.pm
index 7ca1f98..5d894fa 100644 (file)
--- 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;
                     }