From 6522bc2ec1e15c7e19f08ce716bb94b890d06f72 Mon Sep 17 00:00:00 2001
From: Paul Cochrane <paul@liekut.de>
Date: Sun, 8 Oct 2017 13:29:22 +0200
Subject: [PATCH] Use three-arg form of open()

---
 lib/Module/Release.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Module/Release.pm b/lib/Module/Release.pm
index 7ebce53..32b524e 100644
--- a/lib/Module/Release.pm
+++ b/lib/Module/Release.pm
@@ -1196,7 +1196,7 @@ you may well want to overload it.
 =cut
 
 sub get_readme {
-	open my $fh, '<README' or return '';
+	open my $fh, '<', 'README' or return '';
 	my $data = do {
 		local $/;
 		<$fh>;
@@ -1249,7 +1249,7 @@ sub run {
 	$self->_debug( "$command\n" );
 	$self->_die( "Didn't get a command!" ) unless defined $command;
 
-	open my($fh), "$command |" or $self->_die( "Could not open command [$command]: $!" );
+	open my($fh), "-|", "$command" or $self->_die( "Could not open command [$command]: $!" );
 	$fh->autoflush;
 
 	my $output = '';