From 689f3b8cf71d34d9517b7b76cdb519de9e59d258 Mon Sep 17 00:00:00 2001
From: Michael Stapelberg <michael@stapelberg.de>
Date: Wed, 5 Oct 2011 23:17:09 +0100
Subject: [PATCH] tests: Eliminate IO::Scalar

---
 testcases/complete-run.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/testcases/complete-run.pl b/testcases/complete-run.pl
index 70bcc8c1..db797bd2 100755
--- a/testcases/complete-run.pl
+++ b/testcases/complete-run.pl
@@ -31,7 +31,6 @@ use EV;
 use AnyEvent;
 use AnyEvent::Handle;
 use AnyEvent::I3 qw(:all);
-use IO::Scalar; # not in core :\
 use Try::Tiny; # not in core
 use X11::XCB;
 
@@ -187,9 +186,10 @@ sub take_job {
         say "[$display] Running $test with logfile $logpath";
 
         my $output;
+        open(my $spool, '>', \$output);
         my $parser = TAP::Parser->new({
             exec => [ 'sh', '-c', qq|DISPLAY=$display LOGPATH="$logpath" /usr/bin/perl -Ilib $test| ],
-            spool => IO::Scalar->new(\$output),
+            spool => $spool,
             merge => 1,
         });