From ff86799d42abf507bace415da4f8406871a763c8 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
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;