summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y8
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