This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A couple of casting nits by Jarkko
[perl5.git] / op.c
diff --git a/op.c b/op.c
index ba25603..7c649fc 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7302,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\"",
            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);
        }
     }
     return ck_fun(o);