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;