Re: [PATCH] [ID 20001223.002] lvalues in list context

Message-ID: <14943.15321.515713.119805@ix.netsoft.ro>

p4raw-id: //depot/perl@8418

diff --git a/op.c b/op.c
index 7485934..dc51040 100644 (file)
--- a/op.c
+++ b/op.c
@@ -1416,6 +1416,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
        }
        else {                          /* lvalue subroutine call */
            o->op_private |= OPpLVAL_INTRO;
+           PL_modcount = RETVAL_MAX;
            if (type == OP_GREPSTART || type == OP_ENTERSUB || type == OP_REFGEN) {
                /* Backward compatibility mode: */
                o->op_private |= OPpENTERSUB_INARGS;

diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t
index 00080c1..03a2fa0 100755 (executable)
--- a/t/pragma/sub_lval.t
+++ b/t/pragma/sub_lval.t
@@ -1,4 +1,4 @@
-print "1..63\n";
+print "1..64\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -527,3 +527,11 @@ while (/f/g) {
 }
 print "# @p\nnot " unless "@p" eq "1 8";
 print "ok 63\n";
+
+# Bug 20001223.002: split thought that the list had only one element
+@ary = qw(4 5 6);
+sub lval1 : lvalue { $ary[0]; }
+sub lval2 : lvalue { $ary[1]; }
+(lval1(), lval2()) = split ' ', "1 2 3 4";
+print "not " unless join(':', @ary) eq "1:2:6";
+print "ok 64\n";