[perl #68654] next::method doesn't see UNIVERSAL

This commit makes next::method retry with UNIVERSAL if it reaches the
end of the MRO list.

1 files changed, 17 insertions, 1 deletions

diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index c0da963ede..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 => 12);
+plan(tests => 14);
 
 {
 
@@ -93,3 +93,19 @@ plan(tests => 12);
     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';
+}