diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-01-02 23:00:57 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-01-02 23:48:28 -0800 |
commit | 7f7845e39607487538cdd05d965d2677565da5d4 (patch) | |
tree | 571c381ac1ad18bc788a8398447fb08a584278e3 /t | |
parent | 884491dbe6aed1876e8cb44f8371e6feb3302ce8 (diff) | |
download | perl-7f7845e39607487538cdd05d965d2677565da5d4.tar.gz |
Revert "[perl #68654] next::method doesn't see UNIVERSAL"
This reverts commit a5cd004dbd757df2bcf9e17aab6a8ed1272157d7.
Diffstat (limited to 't')
-rw-r--r-- | t/mro/next_edgecases.t | 18 |
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'; -} |