From d83b45b8c7dee4b7dac02b1eec4a66c2e793cd90 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 1 Mar 2007 10:10:41 +0000 Subject: [PATCH] A couple of casting nits by Jarkko p4raw-id: //depot/perl@30433 --- op.c | 2 +- pp_hot.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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: -- 1.8.3.1