projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
support bytecode and C backends in perlcc (patch suggested
[p5sagit/p5-mst-13.2.git]
/
pp.c
diff --git
a/pp.c
b/pp.c
index
cde539c
..
4d96370
100644
(file)
--- a/
pp.c
+++ b/
pp.c
@@
-375,6
+375,8
@@
PP(pp_rv2cv)
if (cv) {
if (CvCLONE(cv))
cv = (CV*)sv_2mortal((SV*)cv_clone(cv));
+ if ((PL_op->op_private & OPpLVAL_INTRO) && !CvLVALUE(cv))
+ Perl_croak(aTHX_ "Can't modify non-lvalue subroutine call");
}
else
cv = (CV*)&PL_sv_undef;