Add rt69056.t to MANIFEST

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index 35ea218..de163fb 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2826,7 +2826,7 @@ S_intuit_method(pTHX_ char *start, GV *gv, CV *cv)
       bare_package:
            start_force(PL_curforce);
            NEXTVAL_NEXTTOKE.opval = (OP*)newSVOP(OP_CONST, 0,
-                                                 S_newSV_maybe_utf8(tmpbuf,len));
+                                                 S_newSV_maybe_utf8(aTHX_ tmpbuf, len));
            NEXTVAL_NEXTTOKE.opval->op_private = OPpCONST_BARE;
            if (PL_madskills)
                curmad('X', newSVpvn(start,SvPVX(PL_linestr) + soff - start));