diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-09-12 20:00:38 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-12 17:51:32 +0000 |
| commit | 3d811634c8589ee2440a7c55255d05afcabf2fc7 (patch) | |
| tree | e43a42a126b90f2154d6e83231148c017186d4d3 | |
| parent | 8c8eb53c8e7b3c9ba798ed184451061a131b09f2 (diff) | |
| download | perl-3d811634c8589ee2440a7c55255d05afcabf2fc7.tar.gz | |
Re: perl@12003
Message-Id: <200109121800.TAA05256@tempest.npl.co.uk>
p4raw-id: //depot/perl@12008
| -rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1432,7 +1432,7 @@ Perl_mod(pTHX_ OP *o, I32 type) 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_mod(pTHX_ OP *o, I32 type) 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_mod(pTHX_ OP *o, I32 type) 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: |