given(): remove support for lexical $_

There is dead code that used to allow

    my $_;
    ...
    given ($foo) {
        # lexical $_ aliased to $foo here
    }

Now that lexical $_ has been removed, remove the code.  I've left the
signatures of the newFOO() functions unchanged; they just expect a target
of 0 to always be passed now.

1 files changed, 1 insertions, 7 deletions

diff --git a/perly.y b/perly.y
index 4b73977d9f..b3be67dda1 100644
--- a/perly.y
+++ b/perly.y
@@ -366,13 +366,7 @@ barestmt:	PLUGSTMT
 			}
 	|	GIVEN '(' remember mexpr ')' mblock
 			{
-			  const PADOFFSET offset = pad_findmy_pvs("$_", 0);
-			  $$ = block_end($3,
-				  newGIVENOP($4, op_scope($6),
-				    offset == NOT_IN_PAD
-				    || PAD_COMPNAME_FLAGS_isOUR(offset)
-				      ? 0
-				      : offset));
+			  $$ = block_end($3, newGIVENOP($4, op_scope($6), 0));
 			  parser->copline = (line_t)$1;
 			}
 	|	WHEN '(' remember mexpr ')' mblock