From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 8 Apr 2022 18:04:41 +0000 (-0700)
Subject: add input line numbers to some log messages
X-Git-Tag: 20220217.03~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=33a3e170d774643a65195a55b3ce8add57545604;p=perltidy.git

add input line numbers to some log messages
---

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;