Bug 6679: 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 Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
parent
8554ce273c
commit
a04e8a8bfc
1 changed files with 3 additions and 3 deletions
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue