Change 12008 by jhi@alpha on 2001/09/12 17:51:32
Subject: [PATCH op.c] Re: perl@12003
From: Robin Barker <[EMAIL PROTECTED]>
Date: Wed, 12 Sep 2001 19:00:38 +0100 (BST)
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#443 edit
Differences ...
==== //depot/perl/op.c#443 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Wed Sep 12 12:00:06 2001
+++ perl/op.c Wed Sep 12 12:00:06 2001
@@ -1432,7 +1432,7 @@
Perl_croak(aTHX_
"panic: unexpected lvalue entersub "
"args: type/targ %ld:%"UVuf,
- (long)kid->op_type,kid->op_targ);
+ (long)kid->op_type, (UV)kid->op_targ);
kid = kLISTOP->op_first;
skip_kids:
while (kid->op_sibling)
@@ -1463,7 +1463,7 @@
Perl_croak(aTHX_
"panic: unexpected lvalue entersub "
"entry via type/targ %ld:%"UVuf,
- (long)kid->op_type,kid->op_targ);
+ (long)kid->op_type, (UV)kid->op_targ);
kid->op_private |= OPpLVAL_INTRO;
break; /* Postpone until runtime */
}
@@ -1476,7 +1476,7 @@
Perl_croak(aTHX_
"Unexpected constant lvalue entersub "
"entry via type/targ %ld:%"UVuf,
- (long)kid->op_type,kid->op_targ);
+ (long)kid->op_type, (UV)kid->op_targ);
if (kid->op_type != OP_GV) {
/* Restore RV2CV to check lvalueness */
restore_2cv:
End of Patch.
