From 20d507b5869b116c3b1f8aeea48fbfbf68dfce60 Mon Sep 17 00:00:00 2001
From: Felipe Gasper <felipe@felipegasper.com>
Date: Mon, 31 Oct 2022 16:34:11 -0400
Subject: Fail attempts to pass anonsub to \$ prototype.

Issue #20384
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

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
-- 
cgit v1.2.1