Attachment #387114 for bug #526188

View | Details | Raw Unified | Return to bug 526188
Collapse All | Expand All

Lines 84-91 Link Here

(-)Shell-EnvImporter-1.07/lib/Shell/EnvImporter/Result.pm (-2 / +2 lines)
84	###############	84	###############
85	my $self = shift;	85	my $self = shift;
86		86
87	return $self->shell_status == 0 and	87	return $self->shell_status == 0 &&
88	$self->command_status == 0 and	88	$self->command_status == 0 &&
89	$self->env_status == 0;	89	$self->env_status == 0;
90		90
91	}	91	}




  my $s = IO::Select->new($fh{'STDOUT'}, $fh{'STDERR'});

  my $t0 = time;
  my %buf = (STDOUT => '', STDERR => '');
  while (1) {

    my @ready = $s->can_read();

      my $pipename = $h2p{"$ready"};
      if ($ready->eof) {
        $s->remove($ready);
        last unless ($s->count);
      } else {
        $ready->read($buf{$pipename}, BLKSIZE, length($buf{$pipename}));
      }
    }
    last unless ($s->count);

  }


Return to bug 526188

Lines 183-189 Link Here

(-)Shell-EnvImporter-1.07/lib/Shell/EnvImporter/Shell.pm (-2 / +2 lines)
183	my $s = IO::Select->new($fh{'STDOUT'}, $fh{'STDERR'});	183	my $s = IO::Select->new($fh{'STDOUT'}, $fh{'STDERR'});
184		184
185	my $t0 = time;	185	my $t0 = time;
186	my %buf;	186	my %buf = (STDOUT => '', STDERR => '');
187	while (1) {	187	while (1) {
188		188
189	my @ready = $s->can_read();	189	my @ready = $s->can_read();
Lines 193-203 Link Here
193	my $pipename = $h2p{"$ready"};	193	my $pipename = $h2p{"$ready"};
194	if ($ready->eof) {	194	if ($ready->eof) {
195	$s->remove($ready);	195	$s->remove($ready);
196	last unless ($s->count);
197	} else {	196	} else {
198	$ready->read($buf{$pipename}, BLKSIZE, length($buf{$pipename}));	197	$ready->read($buf{$pipename}, BLKSIZE, length($buf{$pipename}));
199	}	198	}
200	}	199	}
		200	last unless ($s->count);
201		201
202	}	202	}
203		203