@@ -, +, @@ C4/Record.pm --- C4/Record.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) --- a/C4/Record.pm +++ a/C4/Record.pm @@ -380,7 +380,7 @@ sub marc2csv { } # Preprocessing - eval $preprocess if ($preprocess); + eval {$preprocess} if ($preprocess); my $firstpass = 1; if ( @$itemnumbers ) { @@ -397,7 +397,7 @@ sub marc2csv { } # Postprocessing - eval $postprocess if ($postprocess); + eval {$postprocess} if ($postprocess); return $output; } @@ -576,7 +576,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; } --