From: Ricardo Signes <rjbs@cpan.org>
Date: Thu, 21 Oct 2010 20:19:08 +0000 (-0400)
Subject: avoid a warning when testing with -w
X-Git-Tag: Try-Tiny-0.07
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d864c8894a9c11a53ad8698ecbfd2dea390e549e;p=p5sagit%2FTry-Tiny.git

avoid a warning when testing with -w
---

diff --git a/t/basic.t b/t/basic.t
index 022c604..79c35ad 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -82,6 +82,9 @@ is_deeply( [ try { die } catch {qw(foo bar gorch)} ], [qw(foo bar gorch)], "list
 {
 	my ($sub) = catch { my $a = $_; };
 	is(ref($sub), 'Try::Tiny::Catch', 'Checking catch subroutine scalar reference is correctly blessed');
+}
+
+{
 	my ($sub) = finally { my $a = $_; };
 	is(ref($sub), 'Try::Tiny::Finally', 'Checking finally subroutine scalar reference is correctly blessed');
 }