summaryrefslogtreecommitdiff
path: root/t/mro
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-01-02 23:00:57 -0800
committerFather Chrysostomos <sprout@cpan.org>2011-01-02 23:48:28 -0800
commit7f7845e39607487538cdd05d965d2677565da5d4 (patch)
tree571c381ac1ad18bc788a8398447fb08a584278e3 /t/mro
parent884491dbe6aed1876e8cb44f8371e6feb3302ce8 (diff)
downloadperl-7f7845e39607487538cdd05d965d2677565da5d4.tar.gz
Revert "[perl #68654] next::method doesn't see UNIVERSAL"
This reverts commit a5cd004dbd757df2bcf9e17aab6a8ed1272157d7.
Diffstat (limited to 't/mro')
-rw-r--r--t/mro/next_edgecases.t18
1 files changed, 1 insertions, 17 deletions
diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index e77ce7be31..c0da963ede 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 => 14);
+plan(tests => 12);
{
@@ -93,19 +93,3 @@ plan(tests => 14);
is($@, '', "->next::can on non-existing package name");
}
-
-# Test next::method with UNIVERSAL methods
-{
- package UNIVERSAL;
- sub foo { "foo" }
- our @ISA = "a";
- package a;
- sub bar { "bar" }
- package M;
- sub foo { shift->next::method }
- sub bar { shift->next::method }
- package main;
-
- is eval { M->foo }, "foo", 'next::method with implicit UNIVERSAL';
- is eval { M->bar }, "bar", 'n::m w/superclass of implicit UNIVERSAL';
-}