gv_efullname3() could return NULL, so mro::_nextcan() must cope (and croak()).

1 files changed, 8 insertions, 3 deletions

diff --git a/ext/mro/mro.xs b/ext/mro/mro.xs
index f8a1ee7b5a..69557a67d7 100644
--- a/ext/mro/mro.xs
+++ b/ext/mro/mro.xs
@@ -537,10 +537,15 @@ mro__nextcan(...)
 
             gv_efullname3(sv, cvgv, NULL);
 
-            fq_subname = SvPVX(sv);
-            fq_subname_len = SvCUR(sv);
+	    if(SvPOK(sv)) {
+		fq_subname = SvPVX(sv);
+		fq_subname_len = SvCUR(sv);
+
+		subname = strrchr(fq_subname, ':');
+	    } else {
+		subname = NULL;
+	    }
 
-            subname = strrchr(fq_subname, ':');
             if(!subname)
                 Perl_croak(aTHX_ "next::method/next::can/maybe::next::method cannot find enclosing method");