X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=XS.xs;h=4ced6b89dc389ae99d75de5c7278365b613e8767;hb=a2051bf948cf922e8b2f80580cb86ce56dc36e45;hp=07f0a9ba05063863b82a6e9dfdee868c1ada9666;hpb=d581cf05b55a8bd9fe6268a1051ffdd82bc8f403;p=gitmo%2FClass-C3-XS.git

diff --git a/XS.xs b/XS.xs
index 07f0a9b..4ced6b8 100644
--- a/XS.xs
+++ b/XS.xs
@@ -407,12 +407,18 @@ XS(XS_Class_C3_XS_nextcan)
             }
 
             /* we found a real sub here */
-            sv = sv_2mortal(newSV(0));
+            sv = sv_newmortal();
 
             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)