A couple of casting nits by Jarkko

p4raw-id: //depot/perl@30433

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index ba25603414..7c649fc93a 100644
--- 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\"",
-			len, pmstr, len, pmstr);
+			(int)len, pmstr, (int)len, pmstr);
 	}
     }
     return ck_fun(o);