X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FClass-C3-XS.git;a=blobdiff_plain;f=XS.xs;fp=XS.xs;h=4ced6b89dc389ae99d75de5c7278365b613e8767;hp=94ef956fb91e561d16fdcb52bf2985b919153e32;hb=a2051bf948cf922e8b2f80580cb86ce56dc36e45;hpb=eac662db2bbb457c48260376c5ee1e2cf472a514 diff --git a/XS.xs b/XS.xs index 94ef956..4ced6b8 100644 --- a/XS.xs +++ b/XS.xs @@ -411,8 +411,14 @@ XS(XS_Class_C3_XS_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)