This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
expand code comment in perly.y
[perl5.git] / perly.y
diff --git a/perly.y b/perly.y
index 0a7c30c..8f3e303 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -962,7 +962,7 @@ subscripted:    gelem '{' expr ';' '}'        /* *main::{something} */
     ;
 
 /* Binary operators between terms */
-termbinop:     term ASSIGNOP term                     /* $x = $y */
+termbinop:     term ASSIGNOP term                     /* $x = $y, $x += $y */
                        { $$ = newASSIGNOP(OPf_STACKED, $1, $2, $3); }
        |       term POWOP term                        /* $x ** $y */
                        { $$ = newBINOP($2, 0, scalar($1), scalar($3)); }