From cb6fafead4c428b0cdaba52cf12f347d39da86c1 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. --- 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 9a587cac0f4..7e248a17aa3 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 0010f9a467e..cf30a40b62d 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.25.1