localize UNIVERSAL::can change to avoid confusing TB2

[gitmo/Role-Tiny.git] / t / role-basic-bugs.t

diff --git a/t/role-basic-bugs.t b/t/role-basic-bugs.t
index 571880f..f43a308 100644 (file)
--- a/t/role-basic-bugs.t
+++ b/t/role-basic-bugs.t
@@ -44,6 +44,9 @@ use MyTests;
     use Role::Tiny 'with';
     with 'A::NonExistent::Role';
     END
+}
+
+{
     my $error = $@ || '';
     like $error, qr{^Can't locate A/NonExistent/Role.pm},
         'If ->can always returns true, we should still not think we loaded the role'