From 5bb7ffa02685c60be44512510b53710a8e43c892 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi 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 --- 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