Bug 34174: (bug 33341 follow-up) Fix Ris export
Bug 33341 incorrectly fix the perlcritic warning. Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> (cherry picked from commit6a2ef1a82d
) Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> (cherry picked from commit452a98f67b
) Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
This commit is contained in:
parent
05d0406bd6
commit
45e3eeed65
2 changed files with 2 additions and 2 deletions
|
@ -849,7 +849,7 @@ sub run_atomic_updates {
|
||||||
my $code = read_file( $filepath );
|
my $code = read_file( $filepath );
|
||||||
my ( $out, $err ) = ('', '');
|
my ( $out, $err ) = ('', '');
|
||||||
{
|
{
|
||||||
open my $oldout, qw{>}, "&STDOUT";
|
open my $oldout, qw{>&}, "STDOUT";
|
||||||
close STDOUT;
|
close STDOUT;
|
||||||
open STDOUT,'>:encoding(utf8)', \$out;
|
open STDOUT,'>:encoding(utf8)', \$out;
|
||||||
my $DBversion = Koha::version; # We need $DBversion and $dbh for the eval
|
my $DBversion = Koha::version; # We need $DBversion and $dbh for the eval
|
||||||
|
|
|
@ -97,7 +97,7 @@ sub marc2ris {
|
||||||
my $intype = lc($marcflavour);
|
my $intype = lc($marcflavour);
|
||||||
|
|
||||||
# Let's redirect stdout
|
# Let's redirect stdout
|
||||||
open my $oldout, qw{>}, "&STDOUT";
|
open my $oldout, qw{>&}, "STDOUT";
|
||||||
my $outvar;
|
my $outvar;
|
||||||
close STDOUT;
|
close STDOUT;
|
||||||
open STDOUT,'>:encoding(utf8)', \$outvar;
|
open STDOUT,'>:encoding(utf8)', \$outvar;
|
||||||
|
|
Loading…
Reference in a new issue