Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 34174: (bug 33341 follow-up) Fix Ris export

Browse source 
Bug 33341 incorrectly fix the perlcritic warning.

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit 6a2ef1a82d)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
(cherry picked from commit 452a98f67b)
Signed-off-by: Matt Blenkinsop <matt.blenkinsop@ptfs-europe.com>
This commit is contained in:
Jonathan Druart 2023-07-05 16:45:19 +02:00 committed by Matt Blenkinsop
parent 05d0406bd6
commit 45e3eeed65
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
C4/Installer.pm
View file

@ -849,7 +849,7 @@ sub run_atomic_updates {
my $code = read_file( $filepath );
my ( $out, $err ) = ('', '');
{
open my $oldout, qw{>}, "&STDOUT";
open my $oldout, qw{>&}, "STDOUT";
close STDOUT;
open STDOUT,'>:encoding(utf8)', \$out;
my $DBversion = Koha::version; # We need $DBversion and $dbh for the eval

2
C4/Ris.pm
View file

@ -97,7 +97,7 @@ sub marc2ris {
my $intype = lc($marcflavour);
# Let's redirect stdout
open my $oldout, qw{>}, "&STDOUT";
open my $oldout, qw{>&}, "STDOUT";
my $outvar;
close STDOUT;
open STDOUT,'>:encoding(utf8)', \$outvar;