Commit be20cdf7d0 for perl
commit be20cdf7d0b097eb961b3e10a2a5de120bed1fa1
Author: Branislav Zahradník <barney@cpan.org>
Date: Sun Sep 27 14:27:22 2026 +0200
[perly] function invocation -> Unify logical name for arguments
Affected Perl expressions:
- `&function ()`
- `function ()`
- `function arguments`
Motivation:
Using a common name across multiple actions reduces the cognitive load
placed on the reader, maintainer, or reviewer.
diff --git a/perly.act b/perly.act
index d3623c3b81..bbfefe22a3 100644
--- a/perly.act
+++ b/perly.act
@@ -2407,6 +2407,6 @@ case 2: /* @1: %empty */
/* Generated from:
- * 0ffe57437a5edd04421f66985e33aa2f62bf17372b5be5a372ac2d48c03ca2b5 perly.y
+ * 669a7ee3e72d22dac0af4ac0d27f8571b007da0f12042504c042d6c6db21a4e9 perly.y
* ba173fe7f0e9b6b5465fb5d0705af3290ac7d8b511f0eead585307eb6c68918d regen_perly.pl
* ex: set ro ft=c: */
diff --git a/perly.h b/perly.h
index ad87094f92..a2bf6b69d6 100644
--- a/perly.h
+++ b/perly.h
@@ -248,6 +248,6 @@ int yyparse (void);
/* Generated from:
- * 0ffe57437a5edd04421f66985e33aa2f62bf17372b5be5a372ac2d48c03ca2b5 perly.y
+ * 669a7ee3e72d22dac0af4ac0d27f8571b007da0f12042504c042d6c6db21a4e9 perly.y
* ba173fe7f0e9b6b5465fb5d0705af3290ac7d8b511f0eead585307eb6c68918d regen_perly.pl
* ex: set ro ft=c: */
diff --git a/perly.tab b/perly.tab
index ae3367b8b5..727847495b 100644
--- a/perly.tab
+++ b/perly.tab
@@ -1667,6 +1667,6 @@ static const toketypes yy_type_tab[] =
};
/* Generated from:
- * 0ffe57437a5edd04421f66985e33aa2f62bf17372b5be5a372ac2d48c03ca2b5 perly.y
+ * 669a7ee3e72d22dac0af4ac0d27f8571b007da0f12042504c042d6c6db21a4e9 perly.y
* ba173fe7f0e9b6b5465fb5d0705af3290ac7d8b511f0eead585307eb6c68918d regen_perly.pl
* ex: set ro ft=c: */
diff --git a/perly.y b/perly.y
index 8f3c39894c..d9d7841f5c 100644
--- a/perly.y
+++ b/perly.y
@@ -1761,7 +1761,7 @@ term[product] : termbinop
| /* &foo(@args) or foo(@args) */
amper [function]
PERLY_PAREN_OPEN
- expr
+ expr [arguments]
PERLY_PAREN_CLOSE
{
$$ = newUNOP (
@@ -1769,7 +1769,7 @@ term[product] : termbinop
OPf_STACKED,
op_append_elem (
OP_LIST,
- $expr,
+ $arguments,
scalar ($function)
)
);
@@ -1777,14 +1777,14 @@ term[product] : termbinop
| /* foo @args (no parens) */
NOAMP
subname [function]
- optlistexpr
+ optlistexpr [arguments]
{
$$ = newUNOP (
OP_ENTERSUB,
OPf_STACKED,
op_append_elem (
OP_LIST,
- $optlistexpr,
+ $arguments,
scalar ($function)
)
);
@@ -1827,14 +1827,14 @@ term[product] : termbinop
}
| /* Sub treated as unop */
UNIOPSUB [function]
- term[operand]
+ term [arguments]
{
$$ = newUNOP (
OP_ENTERSUB,
OPf_STACKED,
op_append_elem (
OP_LIST,
- $operand,
+ $arguments,
scalar ($function)
)
);