summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorFelipe Gasper <felipe@felipegasper.com>2022-10-31 16:34:11 -0400
committerPaul Evans <leonerd@leonerd.org.uk>2022-11-16 17:54:31 +0000
commit20d507b5869b116c3b1f8aeea48fbfbf68dfce60 (patch)
tree83ce8d7f4abe25013c9ef1dad3258da56d82e48f /op.c
parenteae81231471af18d22af6f186f0af65ce46dafb1 (diff)
downloadperl-20d507b5869b116c3b1f8aeea48fbfbf68dfce60.tar.gz
Fail attempts to pass anonsub to \$ prototype.
Issue #20384
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 55f8c6adcb..428364a6b1 100644
--- a/op.c
+++ b/op.c
@@ -3453,7 +3453,7 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags)
* set flag here.
* See also https://github.com/Perl/perl5/issues/20384
*/
- goto do_next;
+ goto nomod;
}
/* [20011101.069 (#7861)] File test operators interpret OPf_REF to mean that