From 9b0a55671a2c973ac00a8c163cb96fd8e701349a Mon Sep 17 00:00:00 2001 From: Mason James Date: Wed, 27 Jun 2012 02:41:20 +1200 Subject: [PATCH] Bug 6679 - fix 3 perlcritic violations in C4/Record.pm Content-Type: text/plain; charset="utf-8" http://koha-community.org 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) --- C4/Record.pm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Record.pm b/C4/Record.pm index ed91196..b0c6841 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -355,7 +355,7 @@ sub marc2csv { } # Preprocessing - eval $preprocess if ($preprocess); + eval {$preprocess} if ($preprocess); my $firstpass = 1; foreach my $biblio (@$biblios) { @@ -364,7 +364,7 @@ sub marc2csv { } # Postprocessing - eval $postprocess if ($postprocess); + eval {$postprocess} if ($postprocess); return $output; } @@ -507,7 +507,7 @@ sub marcrecord2csv { $value = defined $authvalues->{$_->as_string} ? $authvalues->{$_->as_string} : $_->as_string; # Field processing - eval $fieldprocessing if ($fieldprocessing); + eval {$fieldprocessing} if ($fieldprocessing); push @valuesarray, $value; } -- 1.7.2.5