From 452a98f67b440559249eb7fceddd838ce357d05c Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
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 <tomascohen@theke.io>
(cherry picked from commit 6a2ef1a82de62c6e245933e91ec795f39f1a4ada)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 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