* Hm, Perl threads and lexical closures don't interact in the way

you'd expect...

svn path=/nixos/trunk/; revision=19214
This commit is contained in:
Eelco Dolstra 2010-01-05 10:35:30 +00:00
parent 9e98910a72
commit ff86799d42

View File

@ -87,9 +87,10 @@ sub start {
close $write; close $write;
threads->create(\&processQemuOutput)->detach; threads->create(\&processQemuOutput, $self, $read)->detach;
sub processQemuOutput { sub processQemuOutput {
my ($self, $read) = @_;
$/ = "\r\n"; $/ = "\r\n";
while (<$read>) { while (<$read>) {
chomp; chomp;