Integrate with Sarathy.

p4raw-id: //depot/cfgperl@4091

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 081d4b4e54..7f4cdc4f6a 100644
--- a/pp.c
+++ b/pp.c
@@ -406,6 +406,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;