This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update comment after 5b354d2a8a
authorHugo van der Sanden <hv@crypt.org>
Tue, 5 Jan 2021 15:26:53 +0000 (15:26 +0000)
committerHugo van der Sanden <hv@crypt.org>
Tue, 5 Jan 2021 15:26:53 +0000 (15:26 +0000)
The specified commit fixed a bug by treating ($x, undef) on the LHS
as 2 scalars; this comment should have been updated to match.

op.c

diff --git a/op.c b/op.c
index 889a032..4fb8c71 100644 (file)
--- a/op.c
+++ b/op.c
@@ -17901,7 +17901,7 @@ Perl_rpeep(pTHX_ OP *o)
                 || !r                      /* .... = (); */
                 || !(l & ~AAS_SAFE_SCALAR) /* (undef, pos()) = ...; */
                 || !(r & ~AAS_SAFE_SCALAR) /* ... = (1,2,length,undef); */
-                || (lscalars < 2)          /* ($x, undef) = ... */
+                || (lscalars < 2)          /* (undef, $x) = ... */
             ) {
                 NOOP; /* always safe */
             }