From 44c1110dadefb4ddd3cf23bfc0583015f34de929 Mon Sep 17 00:00:00 2001
From: Paul Johnson <paul@pjcj.net>
Date: Sun, 5 May 2024 23:02:39 +0200
Subject: [PATCH] Use three-argument open

---
 lib/Devel/Cover/Collection.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Devel/Cover/Collection.pm b/lib/Devel/Cover/Collection.pm
index 61d13f1c..b61b87c3 100644
--- a/lib/Devel/Cover/Collection.pm
+++ b/lib/Devel/Cover/Collection.pm
@@ -95,7 +95,7 @@ sub _sys ($self, $non_buffered, @command) {
       }
     } else {
       setsid() != -1 or die "Can't start a new session: $!";
-      open STDERR, ">&STDOUT" or die "Can't dup stdout: $!";
+      open STDERR, ">&", STDOUT or die "Can't dup stdout: $!";
       exec @command or die "Can't exec @command: $!";
     }
   };