From 9f11ffb7133c203312a01e4b986886bc88c7d74b Mon Sep 17 00:00:00 2001
From: afresh1 <afresh1@openbsd.org>
Date: Wed, 13 Feb 2019 21:15:00 +0000
Subject: Fix merge issues, remove excess files - match perl-5.28.1 dist

looking good sthen@, Great! bluhm@
---
 gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm')

diff --git a/gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm b/gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm
index 08b619f8e31..7c419036f2c 100644
--- a/gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm
+++ b/gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm
@@ -20,7 +20,7 @@ BEGIN {
   #require AutoLoader;
 
   our @ISA = qw(Exporter);
-  our $VERSION = "1.11";
+  our $VERSION = "1.12";
   XSLoader::load('OS2::Process', $VERSION);
 }
 
@@ -756,7 +756,7 @@ sub __term_mirror {
   close IN if defined $out;
   $pid > 0 or die "Cannot start a grandkid";
 
-  open STDIN, '</dev/con' or warn "reopen stdin: $!";
+  open STDIN, '<', '/dev/con' or warn "reopen stdin: $!";
   select OUT;    $| = 1;  binmode OUT;	# need binmode: sysread() may be bin
   $SIG{PIPE} = sub { die "writing to a closed pipe" };
   $SIG{HUP} = $SIG{BREAK} = $SIG{INT} = $SIG{TERM};
@@ -1044,7 +1044,7 @@ gets a buffer with characters and attributes of the screen.
 restores the screen given the result of screen().  E.g., if the file
 C<$file> contains the screen contents, then
 
-  open IN, $file or die;
+  open IN, '<', $file or die;
   binmode IN;
   read IN, $in, -s IN;
   $s = screen;
-- 
cgit v1.2.3-59-g8ed1b