Commit 97dfaf6204 for perl

commit 97dfaf6204939bc0ad84aa6523ee24571ca33b58
Author: Branislav Zahradník <barney@cpan.org>
Date:   Sun Sep 27 10:11:13 2026 +0200

    [perly] method invocation -> Start each sequence with example comment

    Move grammar explanatory comments to the top of each alternative sequence.

    This places example comments before the matching grammar rules rather than
    embedded within or after them, making the grammar structure easier to follow.

diff --git a/perly.act b/perly.act
index bcbb0a8704..74d1b92595 100644
--- a/perly.act
+++ b/perly.act
@@ -2360,6 +2360,6 @@ case 2: /* @1: %empty  */


 /* Generated from:
- * d22bde360791a111c6c7127323d79e7f4be04d1b56ebec14884718d10aba7158 perly.y
+ * 089073f17c951ddaa21f8117eb0453c283d9e787b7b8d5355d00e03ea1973de1 perly.y
  * ba173fe7f0e9b6b5465fb5d0705af3290ac7d8b511f0eead585307eb6c68918d regen_perly.pl
  * ex: set ro ft=c: */
diff --git a/perly.h b/perly.h
index c22d568311..5bb85ac16e 100644
--- a/perly.h
+++ b/perly.h
@@ -248,6 +248,6 @@ int yyparse (void);


 /* Generated from:
- * d22bde360791a111c6c7127323d79e7f4be04d1b56ebec14884718d10aba7158 perly.y
+ * 089073f17c951ddaa21f8117eb0453c283d9e787b7b8d5355d00e03ea1973de1 perly.y
  * ba173fe7f0e9b6b5465fb5d0705af3290ac7d8b511f0eead585307eb6c68918d regen_perly.pl
  * ex: set ro ft=c: */
diff --git a/perly.tab b/perly.tab
index 076084a376..7fe5fb0c03 100644
--- a/perly.tab
+++ b/perly.tab
@@ -384,7 +384,7 @@ static const yytype_int16 yyrline[] =
     1188,  1190,  1195,  1197,  1205,  1206,  1207,  1212,  1213,  1218,
     1219,  1223,  1227,  1227,  1260,  1261,  1267,  1266,  1283,  1284,
     1289,  1294,  1288,  1306,  1308,  1310,  1312,  1314,  1318,  1320,
-    1325,  1329,  1333,  1337,  1341,  1359,  1374,  1393,  1409,  1424,
+    1325,  1329,  1333,  1337,  1342,  1360,  1375,  1394,  1410,  1425,
     1440,  1442,  1444,  1447,  1446,  1460,  1461,  1465,  1469,  1472,
     1477,  1480,  1484,  1491,  1497,  1499,  1501,  1506,  1508,  1510,
     1512,  1514,  1516,  1521,  1523,  1525,  1527,  1529,  1531,  1533,
@@ -1667,6 +1667,6 @@ static const toketypes yy_type_tab[] =
 };

 /* Generated from:
- * d22bde360791a111c6c7127323d79e7f4be04d1b56ebec14884718d10aba7158 perly.y
+ * 089073f17c951ddaa21f8117eb0453c283d9e787b7b8d5355d00e03ea1973de1 perly.y
  * ba173fe7f0e9b6b5465fb5d0705af3290ac7d8b511f0eead585307eb6c68918d regen_perly.pl
  * ex: set ro ft=c: */
diff --git a/perly.y b/perly.y
index aabb1e3044..8223c4a53c 100644
--- a/perly.y
+++ b/perly.y
@@ -1338,13 +1338,13 @@ listop	:	LSTOP indirob listexpr /* map {...} @args or print $fh @args */
 			{ $$ = op_convert_list($FUNC, OPf_STACKED,
 				op_prepend_elem(OP_LIST, newGVREF($FUNC,$indirob), $expr) );
 			}
-	|	term
+	|	/* $foo->bar(list) */
+		term
 		ARROW
 		methodname
 		PERLY_PAREN_OPEN
 		optexpr
 		PERLY_PAREN_CLOSE
-		/* $foo->bar(list) */
 			{
 				$$ = op_convert_list (
 					OP_ENTERSUB,
@@ -1356,10 +1356,10 @@ listop	:	LSTOP indirob listexpr /* map {...} @args or print $fh @args */
 					)
 				);
 			}
-	|	term
+	|	/* $foo->bar */
+		term
 		ARROW
 		methodname
-		/* $foo->bar */
 			{
 				$$ = op_convert_list (
 					OP_ENTERSUB,
@@ -1371,14 +1371,14 @@ listop	:	LSTOP indirob listexpr /* map {...} @args or print $fh @args */
 					)
 				);
 			}
-	|	term
+	|	/* $foo->&bar(list) */
+		term
 		ARROW
 		PERLY_AMPERSAND
 		subname                     [method]
 		PERLY_PAREN_OPEN
 		optexpr
 		PERLY_PAREN_CLOSE
-		/* $foo->&bar(list) */
 			{
 				$$ = op_convert_list (
 					OP_ENTERSUB,
@@ -1390,11 +1390,11 @@ listop	:	LSTOP indirob listexpr /* map {...} @args or print $fh @args */
 					)
 				);
 			}
-	|	term
+	|	/* $foo->&bar */
+		term
 		ARROW
 		PERLY_AMPERSAND
 		subname                     [method]
-		/* $foo->&bar */
 			{
 				$$ = op_convert_list (
 					OP_ENTERSUB,
@@ -1406,10 +1406,10 @@ listop	:	LSTOP indirob listexpr /* map {...} @args or print $fh @args */
 					)
 				);
 			}
-	|	METHCALL0
+	|	/* new Class @args */
+		METHCALL0
 		indirob
 		optlistexpr
-		/* new Class @args */
 			{
 				$$ = op_convert_list (
 					OP_ENTERSUB,
@@ -1421,12 +1421,12 @@ listop	:	LSTOP indirob listexpr /* map {...} @args or print $fh @args */
 					)
 				);
 			}
-	|	METHCALL
+	|	/* method $object (@args) */
+		METHCALL
 		indirob
 		PERLY_PAREN_OPEN
 		optexpr
 		PERLY_PAREN_CLOSE
-		/* method $object (@args) */
 			{
 				$$ = op_convert_list (
 					OP_ENTERSUB, OPf_STACKED,