1 files changed, 1 insertions, 0 deletions
diff --git a/perly.y b/perly.y
index bcebece3e3..18ed6e8fc9 100644
--- a/perly.y
+++ b/perly.y
@@ -469,6 +469,7 @@ barestmt:	PLUGSTMT
 			{
 			  $$ = newTRYCATCHOP(0,
 				  $try, $scalar, block_end($remember, op_scope($catch)));
+			  parser->copline = (line_t)$TRY;
 			}
 	|	block cont
 			{