Re: \ ( @array ) busted for lexical @array (once more)

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index 9ee7e292bf..b992fdef6f 100644
--- a/op.c
+++ b/op.c
@@ -997,6 +997,8 @@ I32 type;
     case OP_PADAV:
     case OP_PADHV:
 	modcount = 10000;
+	if (type == OP_REFGEN && op->op_flags & OPf_PARENS)
+	    return op;		/* Treat \(@foo) like ordinary list. */
 	/* FALL THROUGH */
     case OP_PADSV:
 	modcount++;