localize UNIVERSAL::can change to avoid confusing TB2

diff --git a/Changes b/Changes
index 3542e8d..0708b83 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - localize UNIVERSAL::can change to avoid confusing TB2
+
 1.001004 - 2012-07-12
   - remove strictures.pm from the test supplied by mmcleric so we install again
   - when applying runtime roles include roles from original class in new class

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'