From 33a3e170d774643a65195a55b3ce8add57545604 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 8 Apr 2022 11:04:41 -0700
Subject: [PATCH] add input line numbers to some log messages

---
 lib/Perl/Tidy/Tokenizer.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 0fc72d4c..754ce093 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -480,6 +480,8 @@ sub complain {
     my $msg           = shift;
     my $logger_object = $tokenizer_self->[_logger_object_];
     if ($logger_object) {
+        my $input_line_number = $tokenizer_self->[_last_line_number_] + 1;
+        $msg = "Line $input_line_number: $msg";
         $logger_object->complain($msg);
     }
     return;
-- 
2.39.5