Revert "[perl #80098] Bleadperl breaks Attribute::Lexical"

This reverts commit 1726bc11330f7a943b1e12c6dd5fa5454b90abd6.

1 files changed, 2 insertions, 14 deletions

diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index 3840a4b882..e77ce7be31 100644
--- a/t/mro/next_edgecases.t
+++ b/t/mro/next_edgecases.t
@@ -5,7 +5,7 @@ use warnings;
 
 BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" }
 
-plan(tests => 17);
+plan(tests => 14);
 
 {
 
@@ -94,15 +94,13 @@ plan(tests => 17);
 
 }
 
-# Test next::method/can with UNIVERSAL methods
+# Test next::method with UNIVERSAL methods
 {
     package UNIVERSAL;
     sub foo { "foo" }
-    sub kan { shift->next::can }
     our @ISA = "a";
     package a;
     sub bar { "bar" }
-    sub baz { shift->next::can }
     package M;
     sub foo { shift->next::method }
     sub bar { shift->next::method }
@@ -110,14 +108,4 @@ plan(tests => 17);
 
     is eval { M->foo }, "foo", 'next::method with implicit UNIVERSAL';
     is eval { M->bar }, "bar", 'n::m w/superclass of implicit UNIVERSAL';
-
-    is baz a, undef,
-     'univ superclasses next::cannot their own methods';
-    is kan UNIVERSAL, undef,
-     'UNIVERSAL next::cannot its own methods';
-
-    @a::ISA = 'b';
-    sub b::cnadd { shift->next::can }
-    is baz b, \&a::baz,
-      'univ supersuperclass noxt::can method in its immediate subclasses';
 }