From ff86799d42abf507bace415da4f8406871a763c8 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra Date: Tue, 5 Jan 2010 10:35:30 +0000 Subject: [PATCH] * Hm, Perl threads and lexical closures don't interact in the way you'd expect... svn path=/nixos/trunk/; revision=19214 --- lib/test-driver/Machine.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/test-driver/Machine.pm b/lib/test-driver/Machine.pm index 85ef80f0d37..cc965517d91 100644 --- a/lib/test-driver/Machine.pm +++ b/lib/test-driver/Machine.pm @@ -87,9 +87,10 @@ sub start { close $write; - threads->create(\&processQemuOutput)->detach; + threads->create(\&processQemuOutput, $self, $read)->detach; sub processQemuOutput { + my ($self, $read) = @_; $/ = "\r\n"; while (<$read>) { chomp;