From a0354cfbfef1072bc35cc0cf804a4fb7e2cacbe1 Mon Sep 17 00:00:00 2001
From: Kent Fredric <Kent Fredric>
Date: Tue, 19 May 2015 13:20:06 +0200
Subject: [PATCH] Use Capture::Tiny IO::Capture
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Just use a more reasonable IO redirection system (Capture::Tiny)
instead of relying on a quirky tied glob interface.

CPAN RT#102381

Signed-off-by: Petr Písař <ppisar@redhat.com>
---
 t/debug.t | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/t/debug.t b/t/debug.t
index a2abcfe..e2c4af3 100644
--- a/t/debug.t
+++ b/t/debug.t
@@ -4,8 +4,8 @@ use strict;
 use warnings;
 use Test::More;
 
-eval "use IO::Capture::Stderr";
-plan skip_all => "IO::Capture::Stderr required for debug testing" if $@;
+eval "use Capture::Tiny";
+plan skip_all => "Capture::Tiny required for debug testing" if $@;
 
 plan tests => 3;
 
@@ -14,15 +14,15 @@ use lib "$FindBin::Bin/lib";
 
 $ENV{CATALYST_DEBUG} = 1;
 
-my $capture = IO::Capture::Stderr->new;
-$capture->start;
+my $response;
+my $capture = Capture::Tiny::capture_stderr(sub{
 
-use_ok('Catalyst::Test', 'TestApp');
+	use_ok('Catalyst::Test', 'TestApp');
 
-my $response = request('/test');
+	$response = request('/test');
 
-$capture->stop;
+});
 
 ok($response->is_success, 'request ok');
 
-like(join('', $capture->read), qr{\[debug\] Rendering component "/test"}, 'debug message ok');
+like($capture, qr{\[debug\] Rendering component "/test"}, 'debug message ok');
-- 
2.1.0