From 45e3eeed65eb395ccd848c353b3260aa9bb438be Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 5 Jul 2023 16:45:19 +0200 Subject: [PATCH] Bug 34174: (bug 33341 follow-up) Fix Ris export Bug 33341 incorrectly fix the perlcritic warning. Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 6a2ef1a82de62c6e245933e91ec795f39f1a4ada) Signed-off-by: Martin Renvoize (cherry picked from commit 452a98f67b440559249eb7fceddd838ce357d05c) Signed-off-by: Matt Blenkinsop --- C4/Installer.pm | 2 +- C4/Ris.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Installer.pm b/C4/Installer.pm index 9a587cac0f..7e248a17aa 100644 --- a/C4/Installer.pm +++ b/C4/Installer.pm @@ -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 diff --git a/C4/Ris.pm b/C4/Ris.pm index 0010f9a467..cf30a40b62 100644 --- a/C4/Ris.pm +++ b/C4/Ris.pm @@ -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; -- 2.39.5