Make EPICS::IOC->_geterrors() return on EOF from IOC's stderr

This commit is contained in:
Andrew Johnson
2019-12-31 22:15:22 -06:00
parent 5dc7995477
commit 70ea8d5476

View File

@@ -266,7 +266,8 @@ sub _geterrors {
my @errors;
while ($self->{select}->can_read(0.01)) {
sysread $self->{stderr}, my $errbuf, 1024;
my $n = sysread $self->{stderr}, my $errbuf, 1024;
return @errors unless $n; # $n is 0 on EOF
push @errors, split m/\n/, $self->{errbuf} . $errbuf, -1;
last unless @errors;
$self->{errbuf} = pop @errors;