Bump Exporter's $VERSION.

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 0191844..7c649fc 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5634,8 +5634,7 @@ Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename)
     if (cv)                            /* must reuse cv if autoloaded */
        cv_undef(cv);
     else {
-       cv = (CV*)newSV(0);
-       sv_upgrade((SV *)cv, SVt_PVCV);
+       cv = (CV*)newSV_type(SVt_PVCV);
        if (name) {
            GvCV(gv) = cv;
            GvCVGEN(gv) = 0;
@@ -7303,7 +7302,7 @@ Perl_ck_join(pTHX_ OP *o)
            const STRLEN len = re ? re->prelen : 6;
            Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
                        "/%.*s/ should probably be written as \"%.*s\"",
-                       len, pmstr, len, pmstr);
+                       (int)len, pmstr, (int)len, pmstr);
        }
     }
     return ck_fun(o);