From: Michael Stapelberg <michael@stapelberg.de>
Date: Wed, 5 Oct 2011 22:17:09 +0000 (+0100)
Subject: tests: Eliminate IO::Scalar
X-Git-Tag: 4.1~121^2~4
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=689f3b8cf71d34d9517b7b76cdb519de9e59d258;p=i3%2Fi3

tests: Eliminate IO::Scalar
---

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,
         });