From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 1 Mar 2007 10:10:41 +0000 (+0000)
Subject: A couple of casting nits by Jarkko
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d83b45b8c7dee4b7dac02b1eec4a66c2e793cd90;p=p5sagit%2Fp5-mst-13.2.git

A couple of casting nits by Jarkko

p4raw-id: //depot/perl@30433
---

diff --git a/op.c b/op.c
index ba25603..7c649fc 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);
diff --git a/pp_hot.c b/pp_hot.c
index aa225c3..ca9e5a6 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -788,7 +788,7 @@ PP(pp_rv2av)
     static const char an_array[] = "an ARRAY";
     static const char a_hash[] = "a HASH";
     const bool is_pp_rv2av = PL_op->op_type == OP_RV2AV;
-    const U32 type = is_pp_rv2av ? SVt_PVAV : SVt_PVHV;
+    const svtype type = is_pp_rv2av ? SVt_PVAV : SVt_PVHV;
 
     if (SvROK(sv)) {
       wasref: