diff options
| author |   afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
|---|---|---|
| committer | afresh1 <afresh1@openbsd.org> | 2019-02-13 21:15:00 +0000 |
| commit | 9f11ffb7133c203312a01e4b986886bc88c7d74b (patch) | |
| tree | 6618511204c614b20256e4ef9dea39a7b311d638 /gnu/usr.bin/perl/os2/OS2/OS2-Process | |
| parent | Import perl-5.28.1 (diff) | |
| download | wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.tar.xz wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.zip | |
Fix merge issues, remove excess files - match perl-5.28.1 dist
looking good sthen@, Great! bluhm@
Diffstat (limited to 'gnu/usr.bin/perl/os2/OS2/OS2-Process')
| -rw-r--r-- | gnu/usr.bin/perl/os2/OS2/OS2-Process/Process.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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; |