Change 11983 by jhi@alpha on 2001/09/10 22:37:14
Subject: [PATCH op.c] Re: perl@11978
From: Robin Barker <[EMAIL PROTECTED]>
Date: Mon, 10 Sep 2001 18:58:01 +0100 (BST)
Message-Id: <[EMAIL PROTECTED]>
Format errors.
Affected files ...
... //depot/perl/op.c#442 edit
Differences ...
==== //depot/perl/op.c#442 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Mon Sep 10 16:45:06 2001
+++ perl/op.c Mon Sep 10 16:45:06 2001
@@ -1431,7 +1431,7 @@
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 @@
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 @@
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 */
End of Patch.
