From: Robin Barker <RMBarker@cpan.org>
Date: Mon, 10 Sep 2001 18:58:01 +0000 (+0100)
Subject: Re: perl@11978
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=55140b7900b214ce61d6c3e08927a21f01997d6c;p=p5sagit%2Fp5-mst-13.2.git

Re: perl@11978
Message-Id: <200109101758.SAA07670@tempest.npl.co.uk>

Format errors.

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

diff --git a/op.c b/op.c
index efc0657..2076f02 100644
--- a/op.c
+++ b/op.c
@@ -1431,7 +1431,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
 		if (kid->op_type != OP_NULL || kid->op_targ != OP_LIST)
 		    Perl_croak(aTHX_
 			       "panic: unexpected lvalue entersub "
-			       "args: type/targ %ld:%ld",
+			       "args: type/targ %ld:%"UVuf,
 			       (long)kid->op_type,kid->op_targ);
 		kid = kLISTOP->op_first;
 	      skip_kids:
@@ -1462,7 +1462,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
 		    if (kid->op_type != OP_RV2CV)
 			Perl_croak(aTHX_
 				   "panic: unexpected lvalue entersub "
-				   "entry via type/targ %ld:%ld",
+				   "entry via type/targ %ld:%"UVuf,
 				   (long)kid->op_type,kid->op_targ);
 		    kid->op_private |= OPpLVAL_INTRO;
 		    break;	/* Postpone until runtime */
@@ -1475,7 +1475,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
 		if (kid->op_type == OP_NULL)		
 		    Perl_croak(aTHX_
 			       "Unexpected constant lvalue entersub "
-			       "entry via type/targ %ld:%ld",
+			       "entry via type/targ %ld:%"UVuf,
 			       (long)kid->op_type,kid->op_targ);
 		if (kid->op_type != OP_GV) {
 		    /* Restore RV2CV to check lvalueness */